Sub ScratchMacro()
'A basic Word Macro coded by Gregory K. Maxey
Dim colList As ListParagraphs
Dim lngIndex As Long
  Set colList = ActiveDocument.Range.ListParagraphs
  For lngIndex = 1 To colList.Count
    colList(lngIndex).Range.Font.Name = "Times New Roman"
  Next
lbl_Exit:
  Exit Sub
End Sub