Microsoft Office Forums - View Single Post - [Solved] Turn text outline into autonumbered multilevel outline

nonno · 03-24-2023, 10:54 AM

I found an outline on-line, but when I paste it into Word, there isn't an auto numbered outline. I'm basically just left with raw text.

The outline is A., 1., a., i.

I found this macro which does apply the Heading styles (1-5), however, how do I now run thru the document to apply those newly create headings? I tried the additional macro that is supposed to do it, but it's not working on the doc.

Here is the document I'm working with

Code:

Sub ApplyMultiLevelHeadingNumbers()
Dim LT As ListTemplate, i As Long
Set LT = ActiveDocument.ListTemplates.Add(OutlineNumbered:=True)
For i = 1 To 5
  With LT.ListLevels(i)
    .NumberFormat = Choose(i, "%1.", "%2.", "%3.", "%4.", "%5.")
    .TrailingCharacter = wdTrailingTab
    .NumberStyle = Choose(i, wdListNumberStyleUppercaseLetter, wdListNumberStyleArabic, wdListNumberStyleLowercaseLetter, wdListNumberStyleLowercaseRoman, wdListNumberStyleUppercaseLetter)
    .NumberPosition = 0
    .Alignment = wdListLevelAlignLeft
    .TextPosition = CentimetersToPoints(0.5 + i * 0.5)
    .ResetOnHigher = True
    .StartAt = 1
    .LinkedStyle = "Heading " & i
  End With
Next
End Sub