Change the Lists Font and Indentation for All Lists

Jakov93 · #1 02-19-2024, 07:35 PM

Hi,

I have a document with many lists (numbers and bullets), I want a macro to change the text font to "Times New Roman" for all lists at once, and also change the list indentation to "Space" for all lists in the document.
Thanks

gmaxey · #2 02-20-2024, 02:46 AM

What you have tried? You start a macro with something like:

Sub ReformatMyList()

You end a macro with

End Sub.

Jakov93 · #3 02-20-2024, 03:23 AM

Quote:

Originally Posted by gmaxey

What you have tried? You start a macro with something like:

Sub ReformatMyList()

You end a macro with

End Sub.

Actually, I am not started with anything, but this my idea, because I changed three lists, but it takes time, as I have many of them.

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

Italophile · #5 02-21-2024, 04:34 AM

If you have created the lists correctly all you would need to do is change the list style to use a space, and change the paragraph style to use a different font.

You may find it helpful to review:
How to control bullets in Word 2007 and Word 2010 | ShaunaKelly.com
Use a style to format text in your Microsoft Word document | ShaunaKelly.com

Jakov93 · #6 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 · #7 02-21-2024, 12:22 PM

Quote:

Originally Posted by Italophile

If you have created the lists correctly all you would need to do is change the list style to use a space, and change the paragraph style to use a different font.

I tried to change the style before posting here, but it produced undesired results for my document.
Thank you

Italophile · #8 02-21-2024, 01:02 PM

Quote:

Originally Posted by Jakov93

I tried to change the style before posting here, but it produced undesired results for my document.
Thank you

Then I suggest you work through the links I posted previously and learn how to use styles correctly. It will save you a lot of time in the future.

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