Paginanummers en word

Vandaag en gisteren geruime tijd bezig geweest met uitzoeken hoe ik paginanummers aan word kan toekennen via Visual Basic.

Als ik in Visual Basic iets met Excel of Word wil doen, dan neem ik een macro op, en met enig knutselwerk verwerk ik de macrocode dan in mijn visual basic applicatie.

Dus om paginanummers toe te voegen kreeg ik deze macrocode :
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
NormalTemplate.AutoTextEntries("Pagina X van Y").Insert Where:=Selection. _
Range, RichText:=True
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument


Ik kreeg steeds een runtime op mijn selection. (object was niet ingesteld)
Een beetje aanpassing bracht me tot
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
NormalTemplate.AutoTextEntries("Pagina X van Y").Insert Where:=ActiveWindow.Selection. _
Range, RichText:=True
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument


Maar toen kreeg ik de melding dat er geen geopend document was….

Tot ik opeens het licht zag. Waarom zou ik de macro niet opslaan in het dot bestand en dan uitvoeren vanuit mijn applicatie.
De aha-erlebnis dus.

Nu naar de klant om te melden dat zijn vraag om paginanummers toe te voegen, opgelost is..

[tags]visual basic, macro, word[/tags]