Changing font name in entire document (including headers and footers)

[Rick]

What is the best VBA code to use to change the font name in my entire
document, including headers and footers? Before I learned about range
objects, I would use Selection:

Selection.WholeStory
Selection.Font.Name = "Franklin Gothic Book"

But that doesn't change the font in header/footer text. AND it
requires another command to unselect.

Can I use a range object to do what I want?

 

[Doug Robbins - Word MVP]

It is definitely better to use the Range object, but you will still have to
access all of the StoryRanges in the document. There is code to do this in
the article "Using a macro to replace text where ever it appears in a
document including Headers, Footers, Textboxes, etc." at:

http://www.word.mvps.org/FAQs/MacrosVBA/FindReplaceAllWithVBA.htm


--
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, originally posted via msnews.microsoft.com

 

[Jean-Guy Marcil]

Rick was telling us:
Rick nous racontait que :

What is the best VBA code to use to change the font name in my entire
document, including headers and footers? Before I learned about range
objects, I would use Selection:

Selection.WholeStory
Selection.Font.Name = "Franklin Gothic Book"

But that doesn't change the font in header/footer text. AND it
requires another command to unselect.

Can I use a range object to do what I want?

See:

http://word.mvps.org/faqs/macrosvba/FindReplaceAllWithVBA.htm