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

ghumdinger · #1 09-18-2011, 07:07 AM

Dear all,

I'm working on a doc where I have to adjust all bulleted text (only bulleted text) to 0.25" bullet position and 0.25" text indent.

I have tried to come up with a macro to do this, but it changes the different bullet symbols to the same bullet symbol. I only want the indents to be edited, not the bullet symbols. I am not a coder, so the macro was created using the record function.

I would appreciate if someone could tell me what needs to be changed. Thanks!

Jay

Code:

    Selection.WholeStory
    With ListGalleries(wdBulletGallery).ListTemplates(1).ListLevels(1)
        .NumberFormat = ChrW(61607)
        .TrailingCharacter = wdTrailingTab
        .NumberStyle = wdListNumberStyleBullet
        .NumberPosition = InchesToPoints(0.25)
        .Alignment = wdListLevelAlignLeft
        .TextPosition = InchesToPoints(0.25)
        .TabPosition = wdUndefined
        .ResetOnHigher = 0
        .StartAt = 1
        With .Font
            .Bold = wdUndefined
            .Italic = wdUndefined
            .StrikeThrough = wdUndefined
            .Subscript = wdUndefined
            .Superscript = wdUndefined
            .Shadow = wdUndefined
            .Outline = wdUndefined
            .Emboss = wdUndefined
            .Engrave = wdUndefined
            .AllCaps = wdUndefined
            .Hidden = wdUndefined
            .Underline = wdUndefined
            .Color = wdUndefined
            .Size = wdUndefined
            .Animation = wdUndefined
            .DoubleStrikeThrough = wdUndefined
            .Name = "Wingdings"
        End With
        .LinkedStyle = ""
    End With
    ListGalleries(wdBulletGallery).ListTemplates(1).Name = ""
    Selection.Range.ListFormat.ApplyListTemplateWithLevel ListTemplate:= _
        ListGalleries(wdBulletGallery).ListTemplates(1), ContinuePreviousList:= _
        False, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _
        wdWord10ListBehavior
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