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

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

Lady_Laughsalot · #2 04-17-2018, 12:42 AM

Hi Macropod
Thanks for this - I've run the code but it has a compile error variable not defined message and the word .Replacement was highlighted - any ideas?
Thanks, Shelley

Quote:

Originally Posted by macropod

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

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

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