VBA批量替换word中的某个词

需求：批量替换word中的某个词，例如如果有一百张word，需要批量替换每一张表的相同日期。

代码：

Option Explicit


Sub 宏1()
Dim mypath, myfile
mypath = ThisDocument.Path & "\"
myfile = Dir(mypath & "*.doc")
Do While myfile <> ""
    Documents.Open FileName:=mypath & myfile, Visible:=False
    Documents(myfile).Activate
    '下面的宏是录制的
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "2020-02-10"
        .Replacement.Text = "2020-02-09"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    '上面的代码是录制的
    ActiveDocument.Save
    ActiveDocument.Close
    myfile = Dir
Loop
End Sub