Zeilen pro Seite in Word 97 festlegen

Wie kann ich Word 97 dazu bewegen, eine konstante Zeilenanzahl pro Seite, zum Beispiel 19 Zeilen pro Seite, einzustellen? Ein Fixieren der Seitenränder funktioniert nicht zuverlässig, selbst bei Texten ohne Indizes ergibt das manchmal eine Zeile mehr oder weniger. Die Zeilen zu zählen und Seitenumbrüche per Hand einzufügen, ist mir zu mühsam.

Diese Aufgabe erledigt das folgende Makro; der Text darf allerdings keine manuellen Seitenumbrüche enthalten:

Sub Zeilenzaehlen()
  Dim Anzeilen As Integer
  Dim Anbreak As Integer
  Dim i As Integer
  Anzeilen = _
    ActiveDocument.BuiltInDocumentProperties _
    (wdPropertyLines)
  Anbreak = Int((Anzeilen - 1) / 19)

  Selection.HomeKey Unit:=wdStory
  For i = 1 To Anbreak
    Selection.MoveDown Unit:=wdLine, Count:=19
    Selection.HomeKey Unit:=wdLine
    Selection.InsertBreak Type:=wdPageBreak
  Next
End Sub

Bei umfangreichen Dokumenten heißt es geduldig sein, das Makro ist ziemlich langsam, da der Cursor immer eine Zeile tiefer geht. Und so bekommt man die Seitenumbrüche wieder raus:

Sub Seitenwechsel_raus()
  Selection.HomeKey Unit:=wdStory
  With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^m"
    .Replacement.Text = ""
    .Forward = True
    .Execute Replace:=wdReplaceAll
  End With
End Sub

Beide Makros laufen ab Word 97 und können daher auch mit Word 2000 eingesetzt werden. (db/jl) ()