This is a WinWord for MS Office 97 Macro to paginate .pfw files
converted from PF2 ascii print files.

Sub new1()
Dim Name As String
'get p/a name
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "303"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.MoveLeft Unit:=wdCharacter, Count:=2
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    
    Let Name = Selection.Text
' first page break
    With Selection.Find
        .Text = " 0-1 "
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.InsertBreak Type:=wdPageBreak
' paginate
    Selection.MoveRight Unit:=wdCharacter, Count:=4
    x = InStr(Name, " ")
    If x > 0 Then
    Name = Left$(Name, (x - 1))
    End If
    Selection.Find.ClearFormatting
    With Selection.Find
        Let .Text = Name
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
again:
    If Selection.Find.Found Then
    Selection.EndKey Unit:=wdLine
    Selection.InsertBreak Type:=wdPageBreak
    Selection.Find.Execute
    GoTo again
    End If
' set font
    Selection.WholeStory
    Selection.Font.Name = "Lucida Console"
    Selection.Font.Size = 8
' page setup
    With ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientLandscape
        .TopMargin = InchesToPoints(0.5)
        .BottomMargin = InchesToPoints(0.5)
        .LeftMargin = InchesToPoints(0.5)
        .RightMargin = InchesToPoints(0.5)
        .Gutter = InchesToPoints(0)
        .HeaderDistance = InchesToPoints(0.5)
        .FooterDistance = InchesToPoints(0.5)
        .PageWidth = InchesToPoints(11)
        .PageHeight = InchesToPoints(8.5)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
    End With
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
outofhere:
End Sub

