Public Sub hidh01()

  ActiveWindow.ActivePane.View.ShowAll = True

Dim c1 As Paragraph, j1, j2, j2k
Dim c1c As Object
Open "c:\hidden00.txt" For Output As # 1 
For Each c1 In Word.ActiveDocument.Paragraphs
j1 = j1 +  1 
If j1 >  1000  Then
Exit For
End If
'c1.Select
If c1.Range.FormattedText.Font.Hidden = True Then
Print # 1 , ""
Print # 1 , j1; " " & c1.Range.Text
ElseIf c1.Range.FormattedText.Font.Hidden = False Then
'Debug.Print ;
Else
j2k = Len(c1.Range.Text)
Print # 1 , j1;
j2 =  0 
 For Each c1c In c1.Range.Characters
  If c1c.Font.Hidden <> False Then
  Print # 1 , c1c;
  j2 = j2 +  1 
  Else
  If j2 >  0  Then
  Print # 1 , " ~~";
  j2 =  0 
  End If
  End If
  Next c1c
End If
Next c1
Reset
MsgBox "итоги в c:\hidden00.txt"
End Sub