View Single Post
 
Old 09-19-2011, 01:50 AM
Stefan Blom's Avatar
Stefan Blom Stefan Blom is offline Windows 7 64bit Office 2010 32bit
Moderator
 
Join Date: Aug 2011
Posts: 4,049
Stefan Blom is a name known to allStefan Blom is a name known to allStefan Blom is a name known to allStefan Blom is a name known to allStefan Blom is a name known to allStefan Blom is a name known to all
Default

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
__________________
Stefan Blom
Microsoft Word MVP

Microsoft 365 apps for business
Windows 11 Professional

Last edited by Stefan Blom; 09-19-2011 at 03:00 AM.
Reply With Quote