Word automation Header/Footer merge fields

bartwyckmans

Hi

Does anyone know how to access merge fields into a header or footer?
in VB language is this
wrdRange := wrdApp.ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range

at this point you can 'loop' the wrdRange object and searching for the mergefields ....

but how do you code that in Navision ..... :shock:

NixPt

I use this fuction of VB to edit the header:

varword.ActiveWindow.ActivePane.View.SeekView(1); // -> to enter on section Header
varword.ActiveWindow.ActivePane.View.SeekView(4); // -> to enter on section Footer. 
varword.ActiveWindow.ActivePane.View.SeekView(0); // -> to enter on section Maindoc.

You have the enumeration of vb on MSDN:

http://msdn.microsoft.com/en-us/library/aa211923(office.11).aspx

I hope that helps. ](*,)

ajhvdb

Did you solve this. I would like to know too.

paulvg

This is a way to code this in Navision.
Thanks to the enumeration link I know that I have to replace wdHeaderFooterPrimary by 1

wrdDoc := wrdApp.ActiveDocument;
wrdSections := wrdDoc.Sections;
wrdHeaders :=wrdSections.Item(1).Headers;
wrdHeaders.Item(1).PageNumbers.RestartNumberingAtSection := FALSE;