Quote:
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):
Code:
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