VBA code to convert Heading 1, 2, 3 etc. numbering

macropod · #2 04-16-2018, 03:17 PM

It seems to me that all you need is:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument.Range.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Text = ""
  .Replacement.Text = ""
  .Forward = True
  .Format = True
  .Wrap = wdFindContinue
  For i = 1 To 4
    .Style = "Heading " & i
    .Replacement.Style = "Schedule Level " & i
    .Execute Replace:=wdReplaceAll
  Next
End With
Application.ScreenUpdating = True
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Heading not following the correct numbering	jongleur	Word	2	05-16-2017 10:52 AM
Fixing my heading numbering	tomsrv	Word	3	08-31-2016 12:17 AM
Unhidden Heading Numbering	snmuvz	Word	5	02-04-2015 08:01 PM
Heading 3 numbering not working right	Dr Wu	Word	2	04-02-2013 07:24 AM
Heading numbering anomaly	Ulodesk	Word	8	03-19-2012 01:57 PM