How to insert a file and path name into every footer in a document

[NeedtoKnow]

this should assume that there may be many sections with some sections having a different first page footer attribute.

Any help would be greatly appreciated.

 

[Jezebel]

You can iterate all the footers in a document like this:

Dim pIndex as long
Dim pFooter as range

For pIndex = 1 to 3
set pFooter = Doc.StoryRanges(Choose(pIndex, _
wdEvenPagesFooterStory, _
wdFirstPageFooterStory, _
wdPrimaryFooterStory))

Do until pFooter is nothing
.... do whatever here (eg insert your path/file field)
pFooter.Fields.Add Range:=pFooter, Type:=wdFieldFileName,
Text:="\p"

set pFooter = pFooter.Next
Loop
Next

this should assume that there may be many sections with some sections

having a different first page footer attribute.