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

Jakov93 · 02-26-2024, 12:56 PM

Quote:

Originally Posted by gmaxey

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

Dear gmaxey,
I want to follow the list number or bullet with space, not a tab for all lsits.
Thank you