The Word MVP Site

• Word Home
• Word:mac
• Troubleshoot
• Tutorials
• Find Help
• About Us
• Contact
• Sitemap

• Up to Home

  General

  • Word's numbering explained
  • Remove manually typed numbering
  • Safely update a document's styles from its template

  Page Numbering

  • “Page X of Y” displays or prints as “Page 1 of 1,” “Page 2 of 2” (or “Page 2 of 1”) and so on
  • How to control the page numbering in a Word document
  • Why do all the page numbers in my Word 2002 document display as 0?
  • Front matter numbered separately
  • Include the chapter number with the page number

  List Numbering

  • Word's numbering explained
  • Methods for restarting list numbering
  • VBA: Return the number, or list level, or outline level of a paragraph.

  Other

  • Whenever I update my Table of Contents it acquires unwanted tabs
  • Customizing your table of contents with switches
  • Automatic "intentionally blank" page
  • How can I use an AutoNum field but suppress the period after the number or use a different separator character?
  • Create a numbered list using SEQuence fields
  • How to insert captions that include chapter numbers
  • Creating sequentially numbered documents (such as invoices)
  • Sequentially numbering multiple copies of single document using a macro
  • Sequentially numbering multiple copies of single document using a mailmerge

How to remove manually typed numbering from a document

Article contributed by Dave Rado

You can use the old Word 2 command:

WordBasic.ToolsBulletsNumbers Replace:=0, Type:=1, Remove:=1

If not familiar with using macros, see What do I do with macros sent to me by other users to help me out?

This command is particularly useful for removing manually typed numbering from Headings in a document you have been emailed, prior to applying List Numbering. If you go into Outline View, set the Heading Level to the number of levels you need to remove the typed numbering from, and run the above line, it will just remove numbering from those Headings and will leave the body text alone. Or you can use the following macro to do the same thing:

Sub RemoveNumbersFromHeadings()

Dim ViewType As Long, ShowHeadingLevel As Long, MyRange As Range

Application.ScreenUpdating = False
'Set Range variable to current selection so it can be returned to at the end
Set MyRange = Selection.Range
'Set variable to current View so it can be returned to at the end
ViewType = ActiveWindow.View.Type
'Switch to Outline View
ActiveWindow.View.Type = wdOutlineView

'Checks the state (using the ID in case the tolbar has been customised) of _
all the ShowHeadings buttons on the Outline toolbar; if none are depressed, _
then it must be set to ShowAll. Stores result in a variable so that _
the same level can be returned to at the end of the macro

For ShowHeadingLevel = 71 To 77
    If CommandBars.FindControl(ID:=ShowHeadingLevel).State Then
        ShowHeadingLevel = (ShowHeadingLevel - 70)
        Exit For
    End If
Next ShowHeadingLevel
'if none of the heading level buttons depressed sets variable to 1
If ShowHeadingLevel = 78 Then ShowHeadingLevel = 1

ActiveWindow.View.ShowHeading 3
ActiveDocument.Select

WordBasic.ToolsBulletsNumbers Replace:=0, Type:=1, Remove:=1

If ShowHeadingLevel = 0 Then
    ActiveWindow.View.ShowAllHeadings
Else
    ActiveWindow.View.ShowHeading ShowHeadingLevel
End If

ActiveWindow.View.Type = ViewType
MyRange.Select

Set MyRange = Nothing

Application.ScreenUpdating = False

End Sub
  

Getting Help with WordBasic Commands

Download the old WordBasic help file here

Also see:
Useful WordBasic commands that have no VBA equivalent
and:
Getting help with calling Word's built-in dialogs using VBA (and why doing so can be much more useful than you'd think)