录了一下，加上循环，看得懂就用。

Sub Macro1()
    
For i = 1 To 5
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "of 177 DOCUMENTS"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.Find.Execute
    Selection.HomeKey Unit:=wdLine
    Selection.HomeKey Unit:=wdStory, Extend:=wdExtend
    Selection.Cut
    Application.Move Left:=0, Top:=0
    Documents.Add DocumentType:=wdNewBlankDocument
    Selection.PasteAndFormat (wdPasteDefault)
    ChangeFileOpenDirectory "C:\"
    ActiveDocument.SaveAs FileName:=Str(i) + " of 177 DOCUMENTS.txt", FileFormat:= _
        wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True, _
        WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
         SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False, Encoding:=936, InsertLineBreaks:=False, AllowSubstitutions:=False, _
         LineEnding:=wdCRLF
    ActiveWindow.Close
Next i

End Sub

文件发给我，我帮你试试

可以用Apache POI解决。

把word转成txt,然后用perl