【Word VBA】批量替換字符

很簡單的Word VBA ，本例 替換 "填表日期：2019/12/31" 為 " "

Sub test()
    Dim T
    Dim doc As Document
    Dim fd As FileDialog
    Dim vrtSelectedItem As Variant
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        If .Show = -1 Then
            For Each vrtSelectedItem In .SelectedItems
                Documents.Open FileName:=vrtSelectedItem
                Set doc = ActiveDocument
                
                With doc.Content.Find
                    .Text = "填表日期：2019/12/31"
                    .Replacement.Text = " "
                    .Execute Replace:=wdReplaceAll, Forward:=True, Wrap:=wdFindContinue
                End With

                doc.Save
                doc.Close
                T = T + 1
            Next
        End If
    End With
    MsgBox "操作完成！！" & Chr(10) & "處理了 " & T & " 個文件。", vbOKOnly, "提示"
End Sub