Hi Mark,

You can, if you want, change just one word in the footer. (Acutally, change all occurences of a text string with another text string)

oWord.Selection.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text will give you the current text. If you want to change a word you could check out the STRTRAN() function.

HTH

Liam




>>Hi Mark,
>>
>>I don't believe so but you can set the footer programmatically :
>>
>>oWord.Selection.Sections(1).Footers(wdHeaderFooterPrimary).Range.Text = lcFooterText
>>
>>Liam
>>
>>
>>
>>>If my text is in a footer will global replace work?
>>>Thanks Mark
>
>But this will change the whole footer. But I have to change one word only. Isn't it?
>Thanks a lot for help. Please give me more ideas.
>Mark