word多个文件批量替换内容

 嗡嗡   2019-11-27 11:57   427 人阅读  0 条评论

条件一:

需要替换的word文件应在同一文件夹下

条件二:

编辑宏文件

第一步:打开word,找到下图“宏”的位置,点击查看宏

image.png

第二步:填写文件名,点击创建

image.png

第三步:写入以下代码

Sub CommandButton1_Click()

Application.ScreenUpdating = False  '关闭屏幕闪

Dim myFile$, myPath$, i%, myDoc As Object, myAPP As Object, txt$, Re_txt$

Set myAPP = New Word.Application

With Application.FileDialog(msoFileDialogFolderPicker) '允许用户选择一个文件夹

    .Title = "选择目标文件夹"

    If .Show = -1 Then

        myPath = .SelectedItems(1) '读取选择的文件路径

    Else

        Exit Sub

    End If

End With

myPath = myPath & ""

myFile = Dir(myPath & "\*.docx")

txt = InputBox("需要替换的文字:")

Re_txt = InputBox("替换成:")

myAPP.Visible = True '是否显示打开文档

Do While myFile <> "" '文件不为空

Set myDoc = myAPP.Documents.Open(myPath & "\" & myFile)

If myDoc.ProtectionType = wdNoProtection Then '是否受保护

    With myDoc.Content.Find

        .Text = txt

        .Replacement.Text = Re_txt

        .Forward = True

        .Wrap = 2

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchByte = True

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

        .Execute Replace:=2

    End With

End If

myDoc.Save

myDoc.Close

myFile = Dir

Loop

myAPP.Quit '关掉临时进程

Application.ScreenUpdating = True

MsgBox ("全部替换完毕!")

End Sub

第四步:点击保存

image.png

第五步:回到word,点击运行

image.png


第六步:选择文件夹

image.png

第七步:填入需要替换的文字

image.png

第八步:填入要替换成的文字

image.png

第九步:弹出完成对话框,即可完成替换

image.png


热门推荐:购物先领优惠券|省下的就是赚到的

本文地址:http://www.xhfww.com/?id=37
版权声明:本文为原创文章,版权归 嗡嗡 所有,欢迎分享本文,转载请保留出处!

 发表评论


表情

还没有留言,还不快点抢沙发?