Word VBA Converting Outline Level Format from Number to Letter

bmcellis · September 1st, 2011, 09:40 AM

I have one other question about VBA code mostly for a word document. I'm outputting a recordset from Access to Word and that's OK. Then I select a range between 2 bookmarks as I need to see that section of paragraphs to to the 2nd outline level which also works OK. However by default the 2nd outline level uses numbers instead of lower case letters.

I was trying to see if I could change thar for one range of paragraphs rather than apply a style to a whole document. Right now this is what my code is doing:

Code:

       WordObj.ActiveDocument.Range(WordObj.ActiveDocument.Bookmarks("MMPBodyStart").Range.Start, WordObj.ActiveDocument.Bookmarks("MMPBodyEnd").Range.End).Select

     For Each P In WordObj.Selection.Paragraphs
        If Left(P.Range.Text, 10) = "Failure to" Then
            P.Format.LeftIndent = InchesToPoints(1.25)
            P.Range.SetListLevel Level:=2
            P.Range.ListFormat.ApplyNumberDefault
        End If
    Next

This all works fine but for these paragraphs only instead of

1)
2)

etc

I was hoping to get

a)
b)

etc
Any suggestions without having to create a whole style?

Shasur · September 4th, 2011, 10:36 AM

Hi

Can you try with

Code:

P.Range.ListFormat.ApplyOutlineNumberDefault

Cheers
Shasur