The following macro may help, though it will not see all story ranges in
this form.
Dim bHidden As Boolean
Dim oRng As Range
bHidden = ActiveWindow.View.ShowHiddenText
ActiveWindow.View.ShowHiddenText = True
With Selection
.HomeKey wdStory
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = ""
.Replacement.Text = ""
.Font.Hidden = True
.Forward = True
.Wrap = wdFindStop
.format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
If .Execute = True Then
MsgBox "The document contains hidden text"
Else
MsgBox "No hidden text found"
End If
End With
End With
ActiveWindow.View.ShowHiddenText = bHidden
--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
