Since you have some styles that should be hidden, use this macro to warn =
you:

Dim myStyle As Style
For Each myStyle In ActiveDocument.Styles
Select Case myStyle
Case "hidden style 1", "hidden style 2"
If myStyle.Font.Hidden =3D False Then
MsgBox "Style """ & myStyle.NameLocal & """ is not hidden"
End If
Case Else
If myStyle.Font.Hidden =3D True Then
MsgBox "Style """ & myStyle.NameLocal & """ is hidden"
End If
End Select

(Change "hidden style 1" ... to your hidden styles)

Klaus