如何用宏一次性批量替换多个word文档中的同一内容

wcg129

lingyuncelia 发表于 2016-4-23 09:35
在D盘中新建文件夹t，将要处理的word文档放在文件夹t内，再新建一word文档，运行以下代码即可。
我用得是E ...

目录名无效
（D:\T\）

同心/ty

论坛上有，借鉴@谷雨之际老师的贴，上传大家学习，还真的有用。

Sub 批量替换内容() '将2014年10月15日修改为2024年1月1日

    Dim myDialog As FileDialog, oDoc As Document
    Dim oFile As Variant
     '定义文件夹选取对话框
    Set myDialog = Application.FileDialog(msoFileDialogFilePicker)


    'Selection.Find.ClearFormatting
    'Selection.Find.Replacement.ClearFormatting
   
    With myDialog
     .Filters.Clear
     .Filters.Clear  '清除所有文件筛选器中的项目，确保所有的条件都显示
        
     '增加筛选器的项目为所有Word文件，添加文件类型的项目位置，该参数从1开始
     .Filters.Add "所有Word文件", "*.doc,*.docx", 1
     .AllowMultiSelect = True   '允许多项选择
        
     If .Show = -1 Then   '确定   显示对话框，等待用户操作，-1 为用户进行了确认操作
       For Each oFile In .SelectedItems   '在所有选取项目中循环
        '对单个文档进行处理
        Set oDoc = Word.Documents.Open(FileName:=oFile, Visible:=False)
        With oDoc.Content.Find
        .ClearFormatting
        .Text = "2014年10月15日"
        .Replacement.Text = "2024年1月1日"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        'Find 方法的一个参数，用于执行查找并全部替换操作，也可以定义只替换第一个
        .Execute Replace:=wdReplaceAll
        End With
     oDoc.Save
     oDoc.Close
        Next
     End If
     MsgBox "所有文档处理完成"
    End With
End Sub

mkpxd

同心/ty 发表于 2023-12-18 17:14
论坛上有，借鉴@谷雨之际老师的贴，上传大家学习，还真的有用。

Sub 批量替换内容() '将2014年10月15日 ...

不好使啊,显示所有文档处理完成，但是文档就一个内容改了,其他的一点变化没有。

过客fppt

mkpxd 发表于 2024-3-29 10:37
不好使啊,显示所有文档处理完成，但是文档就一个内容改了,其他的一点变化没有。

那你可以试试这个
【用VBA批量修改文件夹中的Word文档的内容 - CSDN App】http://t.csdnimg.cn/1T03m

常扬帆

同心/ty 发表于 2023-12-18 17:14
论坛上有，借鉴@谷雨之际老师的贴，上传大家学习，还真的有用。

Sub 批量替换内容() '将2014年10月15日 ...

好使！衷心感谢谢谢！