Replacing numbering except for headings

Guessed · #2 06-27-2016, 05:56 PM

I would have expected the Headings to use outline numbering but if you are having problems then try this variation

Code:

Sub ReplaceNumbers()
  Dim oPara As Paragraph
  Dim r As Range
  For Each oPara In ActiveDocument.Paragraphs()
    Set r = oPara.Range
    If r.ListFormat.ListType = wdListSimpleNumbering And r.Style <> "Heading 1" Then
      r.ListFormat.RemoveNumbers NumberType:=wdNumberParagraph
      r.InsertBefore Text:="**"
    End If
    Set r = Nothing
  Next
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Numbering a part of the headings	daanhaeyen	Word	3	09-28-2015 12:15 PM
List & headings & numbering problems	Vegas	Word	2	02-24-2015 03:01 AM
Headings - Levelled Numbering	pgrant	Word	2	11-28-2013 04:00 PM
Headings and numbering	Mart.	Word	1	04-05-2012 12:02 PM
Word headings not numbering correctly?	rbilleaud	Word	4	08-03-2011 08:46 AM