Select each page ina documet and then change the header

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

cutecoder - 14 Mar 2008 14:04 GMT

Hi ,

I am trying to write a macro to insert/replace header and footer in a
document. In which goto do the following

step1: Select the page (in for loop)
step2: Check for multiple section of header and footer
step3: Replace/insert header and footer

could anyone please tell me how to select pages in sequence order?

Thank you

Reply to this Message

Doug Robbins - Word MVP - 15 Mar 2008 03:32 GMT

Headers and footers are associated with Sections, not pages. Therefore, it
is the Sections in a document that you need to cycle through

Dim i as long
With ActiveDocument
For i = 1 to .Sections.Count
With.Sections(i)
.Headers(wdHeaderFooterFirstPage).Range.Text =
.Headers(wdHeaderFooterPrimary).Range.Text =
.Footers(wdHeaderFooterFirstPage).Range.Text =
.Footers(wdHeaderFooterPrimary).Range.Text =
End With
Next i
End With

Signature

Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

> Hi ,
>
[quoted text clipped - 8 lines]
>
> Thank you

Reply to this Message

cutecoder - 15 Mar 2008 09:51 GMT

Hi Doug Robbins,

thank you for your help it worked fine for me.

Regards

>Headers and footers are associated with Sections, not pages. Therefore, it
>is the Sections in a document that you need to cycle through
[quoted text clipped - 16 lines]
>>
>> Thank you

Reply to this Message

Rate this thread: