Turn text outline into autonumbered multilevel outline

nonno · #1 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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
convert multilevel list to a true outline	markjkubicki	Word	3	10-17-2018 10:12 AM
Printing an Outline formatted document that displays the outline	mikecox	Word	2	09-01-2018 03:57 PM
How do i get rid an outline box on all text	Neumans2000	Word	2	09-14-2015 05:56 AM
Macro to Expand Outline Heading in Outline View?	Clueless in Seattle	Word VBA	1	05-04-2015 05:44 PM