[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