Change All Headers

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Debra Ann - 18 Nov 2005 16:59 GMT

I need a toolbar button to add the word Proprietary to all the headers in a
document. I will not know how many headers the user has when doing this,
whether they are same as previous or not, etc.

How could I create a loop that would keep going to the next header and
adding it until there are no more headers left?

Thanks

Signature

Debra Ann

Reply to this Message

Jezebel - 18 Nov 2005 20:57 GMT

Dim pRange as Word.Range
Dim pIndex as long

For pIndex = 1 to 3

on error resume next Ignore error if document doesn't have this
type of header
set pRange = ActiveDocument.StoryRanges(Choose(pIndex,
wdFirstPageHeaderStory, wdPrimaryHeaderStory, wdEvenPagesHeaderStory))
on error goto 0

Do until pRange is nothing
... [ do whatever]
set pRange = pRange.NextStoryRange 'Get next header of this
type, if any
Loop

Next

>I need a toolbar button to add the word Proprietary to all the headers in a
> document. I will not know how many headers the user has when doing this,
[quoted text clipped - 4 lines]
>
> Thanks

Reply to this Message