Move all style headings up 1 level

Guessed · #4 11-30-2021, 02:16 PM

Before the outline promote is run you will need to handle the Heading 1 to change its style to Title. This should be done with a Find and Replace. If you are using a macro, this would do it

Code:

Sub Macro2()
  With ActiveDocument.Range.Find
    .ClearFormatting
    .Style = ActiveDocument.Styles("Heading 1")
    .Replacement.ClearFormatting
    .Replacement.Style = ActiveDocument.Styles("Title")
    .Text = ""
    .Wrap = wdFindContinue
    .Format = True
    .Execute Replace:=wdReplaceAll
  End With
  ActiveDocument.Range.Paragraphs.OutlinePromote
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Applied Styles to Headings in Multi-Level List; now ALL second level headings are 1.XX	NNL	Word	1	08-09-2017 02:52 PM
Numbered headings go nuts after level 3/4	billy8b8	Word	11	02-05-2016 08:02 PM
Level 2 headings in Word look strange when PDF	emmyb	Word	1	09-10-2014 11:30 AM
Config style to restart numbering if it it comes after a style of a higher level	ghumdinger	Word	7	08-31-2011 01:10 AM
Headings + Multi-level list	falieson	Word	1	06-18-2010 12:01 AM