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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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