Here is a sample of a macro.
Sub ChangeFontVerdana()
Dim oStyle As Style
For Each oStyle In ActiveDocument.Styles
oStyle.Font.Name = "Verdana"
Next oStyle
End Sub
Note, there is a reason for different styles to have different fonts,
though. That is why I originally said create several base styles. I have the
following hierarchy:
Heading 1 based on no style. Each other heading style is based on the style
above it. My heading styles are generally sans serif font such as Arial or
Verdana.
I have a base character style which contains my body text font.
I have body text style also based on no style. Body text usually uses a
serif font. All other styles (other than headings and normal) which go in
the body of the document are based in some way on the body text style.
I set normal to be the same as body text except without the interparagraph
spacing. I don't use normal, but Word does.
--
Charles Kenyon
Word New User FAQ & Web Directory:
http://addbalance.com/word
Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide)
http://addbalance.com/usersguide
--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.