宏批量替换多个word指定文字

最新推荐文章于 2026-03-03 05:35:33 发布

原创

最新推荐文章于 2026-03-03 05:35:33 发布 · 2.1w 阅读

收录于

当前文章被以下社区和专栏收录：

本文介绍如何使用VBA宏在Word中创建一个脚本，实现快速选择文件夹中的Word文档，批量查找并替换指定文字，提升工作效率。

1、新建一个word文本，点击”开发工具“菜单下的”宏“按钮（如没有开发工具可点击”视图“下的宏按钮）

2.输入名称后点击”创建“按钮

3.输入如下代码：

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 = "选择Word所在文件夹"
    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.

标签