宏批量替换多个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 ThenmyPath = .SelectedItems(1) '读取选择的文件路径ElseExit SubEnd 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:=2End With
End If
myDoc.Save
myDoc.Close
myFile = Dir
Loop
myAPP.Quit '关掉临时进程
Application.ScreenUpdating = True
MsgBox ("全部替换完毕！")
End Sub

完成后点击 ”保存“，然后关闭

4.回到Word文档，点击宏，运行宏

5.按照向导进行替换过程，等待弹出”全部替换完毕“后即可。

宏批量替换多个word指定文字相关推荐

python文本筛选多个word_用Python批量替换多个Word文件中的文字
实例14:用Python批量替换多个Word文件中的文字公众号"Python操作Office软件高效工作" 29 人赞同了该文章我们在实例7中批量生成了采购合同.但是假设现在我 ...
word批量替换多组文字 python_实例14：用Python批量替换多个Word文件中的文字
我们在实例7中批量生成了采购合同.但是假设现在我方的公司名由"ABC商贸有限公司"变成了"ABC贸易有限公司",那我们就需要去每份合同中对应位置进行替换.当然也 ...
使用宏批量插入图片到Word表格
使用宏批量插入图片到Word表格创建宏,word 视图->宏>查看宏>输入名称>创建宏代码如下: Sub imgTbl()If ActiveDocument.Tables. ...
用Python批量替换多个Word文件中的文字
定义函数info_update.只需要向其中传入目标文件路径,待替换的词和新词即可 import docx def info_update(doc,old_info, new_info):'''此函数 ...
VBA宏批量处理多个Word文档
前言工作里面需要处理上百个Word文档,所以就开始在网上查找宏相关的代码由于第一次接触宏相关的代码,所以写得肯定不会很好.不过,最后勉强算是解决了问题,为了以后方便查找,就把代码贴上来. 开启.编 ...
Excel 2010 VBA 入门 048 批量替换文本中的指定字符(replayce函数和方法)
目录示例: 实现代码 Replace函数单元格对象的Replace方法使用Replace方法实现代码示例: 如图所示,该表为某公司商品编码.由于商品目录升级,现商品编码中以"GXGY ...
利用VBA批量替换多个Word内容(带窗体界面/支持备份、大小写、通配符等功能)
背景:朋友工作中有多个Word文件,每次做更新时都要更新文档内的日期,每次手工更改都比较耗费时间,加上公司电脑不能装未授权的软件,且只支持英文,于是就根据这个需求,参考一些网上的代码,并做了一些升级, ...
Photoshop批量替换PSD文件中的文字并转成JPEG图片
在处理一些图片内容相同,文字内容不一样的时候.Photoshop有批量处理的方法,可以免去人工粘贴复制的麻烦. 1. 设计好需要替换文字的PSD 2. Photoshop程序:图像->变量-&g ...
Unity中实现批量替换字符串中的指定字符
code using System.Collections.Generic; using UnityEngine;public class ReplaceStr : MonoBehaviour {// ...
POI替换word中的指定文字（包含表格，表格中有回车）
网上可以找到很多POI替换Word中指定文字的代码,然而基本上都没有对文档中的表格中包含的段落(回车)进行处理.自己写了,代码记录如下: /** * *@templetStream 文档的输入流 *@ ...

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

宏批量替换多个word指定文字相关推荐

最新文章

热门文章