1. Sinds Word 97 gebruiken we VBA ipv WordBasic
2. Ik zou de hele macro herschrijven en beter gebruik maken van Mailmerge.
3 Er kan meer geautomatiseerd worden dan nu in de macro staat (geen gebruikerinvoer nodig)
4. de eenvoudigste manier voor een oplopend faktuurnummer:
Maak een bestand
"C:\faktuur20100001"
Lees het faktuurnummer met
fnr=dir("C:\faktuur*)
Maak het opvolgende faktuurnummer met
fnr1=Val(mid(fnr,8))+1
Gebruik dat om het bestand op te slaan:
Activedocument.SaveAs E:\fakturen\fact" & fnr1
en om het laatste faktuurnummer op te slaan
Name "C:\" & fnr As "C:\" & fnr1