Sub ToggleHideParaNos()
' Revised Mar 1, 2003 by Steven Marzuola
' Toggle Hidden attribute for paragraph numbers (or bullets)
' that are automatically generated by Microsoft Word

' For a description of its intended use, see:
' http://www.techlanguage.com/tips/TabCharsAndDV.html

Dim myPar, a As Long, newValue As Boolean, newValDef As Boolean

newValDef = False
On Error GoTo myContinue

For Each myPar In ActiveDocument.ListParagraphs
  a = myPar.Range.ListFormat.ListLevelNumber
  If newValDef Then
    myPar.Range.ListFormat.ListTemplate.ListLevels(a).Font.Hidden = newValue
  Else
    newValue = Not myPar.Range.ListFormat.ListTemplate.ListLevels(a).Font.Hidden
    newValDef = True
    myPar.Range.ListFormat.ListTemplate.ListLevels(a).Font.Hidden = newValue
  End If

myContinue:

Next
End Sub