[John Gregory]

I have a large number of styles - some default, others I created. I want to
change the default font used in all styles, but not change the other style
properties.

Is there an easy way to do this? or do I have to edit every document style
and template over again?

[TedMi]

You can do this with programming in VBA, but it is far from trivial. Your
program could open each .doc or .dot in a folder, loop through its Styles
collection. Each Style object has a Font object whose properties (name, size)
you can change. Details of how to go about that depend on which styles you
want to change and which to leave alone.
--
Ted

[John Gregory]

Is there a way to do this with a macro within each document? even that could
save a lot of time.

"TedMi" wrote:

You can do this with programming in VBA, but it is far from trivial. Your
program could open each .doc or .dot in a folder, loop through its Styles
collection. Each Style object has a Font object whose properties (name, size)
you can change. Details of how to go about that depend on which styles you
want to change and which to leave alone.
--
Ted

[TedMi]

Sure, macros are merely containers for VBA code. But there is no way to
simply record this, because you need to write For Each... loops which cannot
be recorded because they are not available from the UI of a doc. You need to
open the VBA editor and write code. You could, however, record changes you
want for ONE style, then edit that macro to make it loop through all styles:

Dim myStyle as Style
For each myStyle in ActiveDocument.Styles
' Recorded code goes here, with these changes:
' Change every instance of:
' ActiveDocument.Styles("NameOfStyle")
' to: myStyle
' Remove any lines that refer to properties you don't want to change
' End of Recorded Code
Next myStyle

This, of course, assumes you want to apply the SAME IDENTICAL changes to all
styles of the doc.
Good luck!
--
Ted

[TedMi]

Clarification:
The FOR EACH statement goes just before the first WITH statement.
The NEXT statement goes just after the last END WITH statement.
--
Ted

[Suzanne S. Barnhill]

If the styles are all based on Normal, you need only change the font of
Normal: Format | Font: Default...

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

"John Gregory" wrote in message
...
I have a large number of styles - some default, others I created. I want
to
change the default font used in all styles, but not change the other style
properties.

Is there an easy way to do this? or do I have to edit every document
style
and template over again?

[John Gregory]

Suzanne, TedMi,

Thank you for your response, I was able to change all of the fonts in styles
by just changing the "Normal" font. Much easier than I suspected.

"Suzanne S. Barnhill" wrote:

If the styles are all based on Normal, you need only change the font of
Normal: Format | Font: Default...

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

"John Gregory" wrote in message
...
I have a large number of styles - some default, others I created. I want
to
change the default font used in all styles, but not change the other style
properties.

Is there an easy way to do this? or do I have to edit every document
style
and template over again?

[John Gregory]

Suzanne, TedMi,

Thank you for your responses, I was able to change the font styles simply by
changing the normal style font. Simple solution if you know how to do it.

Thank you both for your responses

"Suzanne S. Barnhill" wrote:

If the styles are all based on Normal, you need only change the font of
Normal: Format | Font: Default...

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

"John Gregory" wrote in message
...
I have a large number of styles - some default, others I created. I want
to
change the default font used in all styles, but not change the other style
properties.

Is there an easy way to do this? or do I have to edit every document
style
and template over again?

[Valdacious]

Originally Posted by John Gregory

I have a large number of styles - some default, others I created. I want to
change the default font used in all styles, but not change the other style
properties.

Is there an easy way to do this? or do I have to edit every document style
and template over again?

Try this, works for me, just change the name of the font to what you want (note it may take a little while to complete):

Sub MakeStylesArialfont()
'gets rid of annoying fonts
For i = ActiveDocument.Styles.Count To 1 Step -1
ActiveDocument.Styles(i).Font.Name = "Arial"
Next i
End Sub