Microsoft Office Forums - View Single Post - Change the Lists Font and Indentation for All Lists

gmaxey · 02-21-2024, 03:41 AM

We are not a code writing service. We are here to help people learn to use VBA.

Here is something to get you started:

Code:

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