Do you mean something like this Charles:
Code:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oStyle As Style
For Each oStyle In ActiveDocument.Styles
On Error Resume Next
oStyle.Font.Name = "Times New Roman"
Next oStyle
lbl_Exit:
Exit Sub
End Sub
There probably aren't that many more Word users that knows what a style is, than
knows how to map a CC