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