If XXX= False Then
Selection.HomeKey Unit:=wdStory
Dim oRange As Range
Dim Anfang As Integer, Ende As Integer
Dim Pos As Long
Anfang = 34: Ende = 35
ActiveDocument.ComputeStatistics wdStatisticPages
Selection.GoTo What:=wdGoToPage, Name:=Anfang
Pos = Selection.Range.Start
Selection.GoTo What:=wdGoToPage, Name:=Ende
Set oRange = ActiveDocument.Range(Pos, _
Selection.Bookmarks("\Page").Range.End)
If Right(oRange.Text, 1) = Chr(12) Then
oRange.SetRange Start:=oRange.Start, _
End:=oRange.End - 1
End If
With oRange.Font
.Hidden = True
End With
With ActiveWindow.View
.ShowHiddenText = False
.ShowAll = False
End With
Else