#1
|
|||
|
|||
Change the Lists Font and Indentation for All Lists
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 |
#2
|
|||
|
|||
What you have tried? You start a macro with something like:
Sub ReformatMyList() You end a macro with End Sub. |
#3
|
|||
|
|||
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.
|
#4
|
|||
|
|||
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 |
#5
|
|||
|
|||
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 |
#6
|
|||
|
|||
Quote:
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 |
#7
|
|||
|
|||
Quote:
Thank you |
#8
|
|||
|
|||
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.
|
#9
|
|||
|
|||
Change the Lists Indentation for All Lists
Quote:
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 |