Turn text outline into autonumbered multilevel outline

Guessed · #5 03-27-2023, 10:20 PM

That earlier code applies styles so the hardest part is done.

You can then assign the numbering to List series of styles applied by the macro or by importing the correct style definitions from a template.

Alternatively, you could run a series of find/replaces to assign your preferred (autonumbered) styles.

Does your sample document already contain an autonumbered list outline that can be applied to the List styles?

And you can remove the manual numbers with a macro like this that works on selected paragraphs

Code:

Sub NumberingDeleteHardcoded()
  'Only acts on selected paragraphs
  Dim iResp As Integer
  iResp = MsgBox("This macro will remove all hardcoded paragraph numbers " _
    & vbCr & "from the SELECTED paragraphs. Click OK to continue.", _
    vbOKCancel, "Delete Hard Numbers")
  If iResp = vbOK Then
    WordBasic.ToolsBulletsNumbers Replace:=0, Type:=1, Remove:=1
  End If
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