Change the Lists Font and Indentation for All Lists

gmaxey · #1 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

Jakov93 · #2 02-21-2024, 12:16 PM

Quote:

Originally Posted by gmaxey

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

I am sorry and thank you
Just one last thing, now the font is changed, but I want to follow the lists number or bullet with space, not a tab
Thank you

Jakov93 · #3 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Comparing two lists and extracting values missing from both lists	Dave T	Excel Programming	4	11-01-2018 11:51 PM
Creating global contact lists (distribution lists) Outlook 2011 Mac	pengyou	Outlook	0	09-10-2016 02:18 PM
I want to create a lists within lists (nested merges)	AndyS	Mail Merge	10	12-11-2015 03:05 PM
Multilevel lists and paragraph indentation	computerdummy	Word	2	04-27-2012 02:32 PM
Bulleted Lists - Changing Font	mhartman09	Word	2	12-10-2010 12:18 PM