java批量替换word内容_word多个文档替换内容

替换文件夹下所有文档的内容，需要替换的文档不能打开，采用宏进行批量替换，亲测成功，测试是word2016

根据简书作者改编https://www.jianshu.com/p/9d348b8015b6?utm_campaign=maleskine&utm_content=note&utm_medium=seo_notes&utm_source=recommendation

第一步：新建一个Word并打开，点击工具栏视图–宏(下边的倒三角)–查看宏

第二步：填写一个文件名，点击创建

第三步：复制以下代码，替换新创建的宏代码(如果以前有宏注意不要误删)，注意代码格式，保存

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

第四步：回到Word文档，点击视图–宏，运行宏

第五步：弹出窗口，选择需要替换文档的文件夹(文件夹下不会显示文件名)

第六步：要替换的文字

第七步：替换成

第八步：需要等待一会，显示全部替换完毕即可

java批量替换word内容_word多个文档替换内容相关推荐

批量清空 Word 、Excel、PPT 文档中的标题、作者、版本号、公司、创建时间等元数据
概要:「我的ABC软件工具箱」提供了强大的清空 Office 文档元数据的功能,包括常见的作者.版本号.公司.创建时间.修改时间等这些信息.支持的文档格式有 Word .Excel.PPT,能够一键对 ...
word文档怎么找回误删的文件_Word、Excel文档误删内容后保存，如何恢复或找到删除前的...
Word文档被别人误删内容后进行了保存,如何恢复或找到删除前的文件? 首先打开前一晚文档所在的文件夹,工具--文件夹选项--查看,在"隐藏文件和文件夹"这一栏里,选中"显 ...
批量修改 Word 、Excel、PPT 文档中的标题、作者、版本号、公司、创建时间等元数据
概要:「我的ABC软件工具箱」提供了强大的修改 Office 文档元数据的功能,包括常见的作者.版本号.公司.创建时间.修改时间等这些信息.支持的文档格式有 Word .Excel.PPT,既能够对原 ...
word多个文档替换内容
替换文件夹下所有文档的内容,需要替换的文档不能打开,采用宏进行批量替换,亲测成功,测试是word2016 根据简书作者改编https://www.jianshu.com/p/9d348b8015b6? ...
java实现doc内容对比_Java平台Word格式处理控件Spire.Doc8月新功能代码演示：比较两个 Word 文档的内容...
Spire.Doc 能够非常完美的识别中文字符并支持丰富的word文档元素:文本框.页眉.页脚.项目符号和编号.表格.文本.超链接.水印.图片.形状等. 自版本3.8.8开始,Spire.Doc fo ...
java操作office和pdf文件java读取word，excel和pdf文档内容
在平常应用程序中,对office和pdf文档进行读取数据是比较常见的功能,尤其在很多web应用程序中.所以今天我们就简单来看一下Java对word.excel.pdf文件的读取.本篇博客只是讲解简单应 ...
Py自动化办公—Word文档替换、Excel表格读取、Pdf文件生成和Email自动邮件发送实战案例...
点击上方"Python爬虫与数据挖掘",进行关注回复"书籍"即可获赠Python从入门到进阶共10本电子书今日鸡汤平阳歌舞新承宠,帘外春寒赐锦袍. ...
Word文档替换功能
Word文档替换功能 Word文档替换功能 1.打开你的文档ctrl+H快捷键,呼出此页面(查找和替换) 2.点击替换在查找内容里面选择标签内容,也就是你要替换的内容 3.查找内容那里要有内容才 ...
python实现word文档批量转成自定义格式的excel文档
python实现word转成自定义格式的excel文档(解决思路和代码) 支持按照文件夹去批量处理,也可以单独一个文件进行处理,并且可以自定义标识符最近在开发一个答题类的小程序,到了录入试题进行测试 ...
python读取word内容写入excel_“python循环写入excel“Word文档的内容提取到excel表格中...
Excel表格内容自动填充到word中的指定位置使用粘贴链接.在Excel中复制需要进入Word文档中的数据内容,然后在Word文档中,点击选择性粘贴,然后点选粘贴为链接. 如何将EXCEL的文字复 ...

java批量替换word内容_word多个文档替换内容

java批量替换word内容_word多个文档替换内容相关推荐

最新文章

热门文章