From: Steven Marzuola 
Sent: March 1, 2003 7:52 PM
To: dejavu-l@yahoogroups.com
Subject: [dejavu-l] New version: Hiding automatic paragraph numbers and bullets

There was a problem with my tab delimiter hider macro, that caused the macro to halt when processing some types of bulleted paragraphs. However, I think I fixed it.  The version given below works properly 
on the files that previously gave me errors.  This version is also available in the files section of the web site:

http://groups.yahoo.com/group/dejavu-l/files/Macros/ToggleHideParaNos.txt

Steven

= = = = = =


Sub ToggleHideParaNos()

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

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