5 Ways to Quickly Remove Bullets and List Numbers from Your Word Document

In this article, we would like to demonstrate you 5 easy ways to remove the bullets and list numbers from your Word document.

A document can contain bulleted and numbered lists. Sometimes, you may need to reformat these lists. For example, you might need to set list contents in bold, italic, or regular texts, to name just a few. Then you have to remove all the bullets and list numbers first.

Here are 5 solutions to different cases.

Method 1: Set “None” Bullets or Numbering

1. First of all, select unwanted bulleted and numbered entries.
2. Then click on the drop-down button on “Bullets” or “Numbering”.
3. Click “None”.

Check the result:

Method 2: Set “Normal” Style for Bulleted or Numbered Entries

1. To begin with, select unnecessary entries.
2. Second, click “Home” tab in the Ribbon.
3. Then click “More” button in “Styles” group.
4. Next choose “Normal”.
5. Or you can press “Ctrl+ Shift+ N” in step 2 instead.

Method 3: Remove All Bullets in a Document

1. First and foremost, press “Alt+ F11” to open VBA editor in Word.
2. In the editor, click “Normal” project.
3. Then click “Insert” tab and choose “Module”.
4. Double click new module to bring out the editing area and paste the following macro there:

Sub RemoveAllBulletsInADoc()
  Dim objParagraph As Paragraph
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objParagraph In ActiveDocument.Paragraphs
    If objParagraph.Range.ListFormat.ListType = WdListType.wdListBullet Then
      objParagraph.Range.ListFormat.RemoveNumbers
    End If
  Next objParagraph
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

5. Lastly, click “Run” or hit “F5”.

Here is the outcome:

Method 4: Remove All List Numbers in a Document

1. First, repeat steps in method 3 to install and run a macro.
2. Only you need this macro instead:

Sub RemoveAllListNumbersInADoc()
  Dim objParagraph As Paragraph
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objParagraph In objDoc.Paragraphs
    If objParagraph.Range.ListFormat.ListType = wdListSimpleNumbering Then
      objParagraph.Range.ListFormat.RemoveNumbers
    End If
  Next objParagraph
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

Method 5: Remove All Bullets and List Numbers in a Document

Now in case you need to remove both bullets and list numbers, you can utilize the following macro:

Sub RemoveBulletsAndListBumbers()
  Dim objParagraph As Paragraph
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objParagraph In objDoc.Paragraphs
    If objParagraph.Range.ListFormat.ListType = WdListType.wdListBullet Or wdListSimpleNumbering Then
      objParagraph.Range.ListFormat.RemoveNumbers
    End If
  Next objParagraph
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

Pick a Trustworthy Repairing Tool

Given to the fact that Word is susceptible to errors, there are many repairing tools designed to fix Word. However, you must pay enough attention while picking such a utility, especially in a time of emergency. Remember that unreliable tool can cause further damage for your data.

Author Introduction:

Vera Chen is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including fix xls and pdf repair software products. For more information visit www.datanumen.com