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

See also the MVP FAQ: http://word.mvps.org/FAQs/ which is awesome!
--------- --------- --------- --------- --------- ---------
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.

"Charles Kenyon" wrote in
message ...
Short term the only way would be with a macro.

Long term, set up your styles so they cascade, so that you have a few base
styles and all other styles are based on those. Then it is easy to make
global changes. Many styles are based on the normal style by default.
--
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

See also the MVP FAQ: http://word.mvps.org/FAQs/ which is awesome!
--------- --------- --------- --------- --------- ---------
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.

"Catherine" wrote in message
news
Does any one know of an easy way to change the default font type in all
Word
styles in MS Word 2003, without going into each style and changin the
font
type item by item?