Footer Problems

[vba_coder1000]

Hello,

I was wondering, whether anybody would be able to assist me in a particular problem - I'm having with Microsoft Word VBA Functions.

I have created a piece of code, which I need to be able to paste on each individual page of a Word document.

The existing code determines the page orientation and pastes the correct type of footer on to the individual page. However the code currently pastes on to the 1st page of the document.

How can I get the code to loop/scan through the document?

Any help would be greatly appreciated.

vba_coder1000

[RobDog888]

This will give you the number of pages in a Word document.
With that info you can access each page and add the footer to it,
but you will need to test if the page already has the footer on it
or not. Something like moving down to that page and
conditionally adding the footer.

Private Sub Document_Open()
 
    Dim objPage As Pages
 
    Set objPage = ActiveDocument.ActiveWindow.Panes(1).Pages
    MsgBox "There are " & objPage.Count & " pages in this document!", vbOKOnly + vbInformation
    
End Sub