修改VBA宏以删除不需要的文本

Question

我有一个需要清理的.txt文件。它需要在每个页面上的“个人”一词之前有一个分页符。它还需要是Courier New 8.5pts，上下边距为0.5in，左右边距为1in。我修改了我发现的另一个脚本（如下所示），它几乎让我在那里。问题是在“个人”之前有一些不需要的文本，这是数字1后跟几个空格和3个carraige返回。我需要删除这个文本。下面是目前的脚本：

Sub InsertPageBeforeDate()
  Dim lngPos As Long
  Application.ScreenUpdating = False
  Selection.HomeKey Unit:=wdStory
  Selection.WholeStory
    Selection.Font.Name = "Courier New"
    Selection.Font.Size = 8.5
  With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "Individual"
    .Format = False
    .MatchCase = False
    .MatchWholeWord = True
    .MatchWildcards = False
    Do While .Execute
        If Selection.Information(wdFirstCharacterLineNumber) > 1 Then
            lngPos = Selection.Start
            Selection.MoveLeft Unit:=wdWord, Count:=2, Extend:=True
            If LCase(Selection.Text) <> "of " Then
                Selection.Collapse Direction:=wdCollapseEnd
                Selection.InsertBreak Type:=wdPageBreak
            End If
            ActiveDocument.Range(Start:=lngPos + 4, End:=lngPos + 4).Select
        End If
    Loop
End With
Application.ScreenUpdating = True
End Sub