VBA Remove manual numbering after Outline numbering

Guessed · #2 08-03-2021, 10:56 AM

Firstly, to remove the autonumbers, this code is simpler

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

Secondly, if the right paragraph style is applied and those styles are defined correctly, to get the alignment correct all you need to do is reset the paragraph attributes to remove local overrides.

Code:

Selection.ParagraphFormat.Reset

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
VBA converting manual numbering to auto numbering	Shelley Lou	Word VBA	8	05-28-2021 01:08 AM
page numbering for manual	Bursal	Word	1	07-29-2018 02:08 PM
How can I define a numbering style restarting numbering after an outline by default	jklocker	Word	1	09-26-2017 05:11 AM
Associate Outline Levels with Numbering	altjx	Word	2	04-17-2012 02:06 PM
Outline numbering: 2.1 coming out as 1.1	Remster	Word	3	12-07-2011 12:16 PM