Adjust list indents for all bulleted text (of different bullets)

Stefan Blom · #4 09-19-2011, 01:50 AM

OK, at least in principle, this shouldn't be difficult. Click the bullet character of the first item. That would highlight all bullets that are part of the same list (at that particular level). Then right-click again and select Adjust List Indents from the context menu. Specify the desired indentation. Repeat this for other bullets.

With a macro, you'd need something like this:

Code:

 
Sub ChangeListParasInDoc()
Dim LP As ListParagraphs
Dim p As Paragraph
Dim i As ListLevel
Set LP = ActiveDocument.ListParagraphs
For Each p In LP
For Each i In p.Range.ListFormat.ListTemplate.ListLevels
i.TrailingCharacter = wdTrailingTab
i.NumberPosition = 18 ' 0.25" indent from left margin
i.TextPosition = 36 ' position from left margin of text
i.TabPosition = 36 ' position of tab stop
Next i
Next p
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Numbered list turns to bullets when copy/pasted	cathleenmcguire	PowerPoint	6	08-31-2011 08:07 AM
Problem with wrap text & bullets	parasiteblue	Drawing and Graphics	1	06-19-2011 08:53 PM
Bulleted and Numbered Lists	peret944	Word	0	03-25-2011 01:08 PM
Change color of text in bullets	franklyorange	PowerPoint	2	06-22-2010 04:51 AM
2-Column Text Slides and Aligning Bullets	KitKatJM	PowerPoint	1	03-09-2010 06:45 PM