不打开WORD文档批量替换文档内容
Posted 分久必合
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了不打开WORD文档批量替换文档内容相关的知识，希望对你有一定的参考价值。
Sub 批量替换WORD内容()
Dim wd As New Word.Application
pa = ThisWorkbook.Path & "\111.docx"
With wd
.Documents.Open pa
.Visible = False
For i = 2 To Cells(65535, 1).End(xlUp).Row
.ActiveDocument.Content.Find.Execute findtext:=Cells(i, 1), replacewith:=Cells(i, 2), Replace:=wdReplaceAll, Forward:=True
Next
.Documents.Save
.Quit
End With
Set wd = Nothing
End Sub
以上是关于不打开WORD文档批量替换文档内容的主要内容，如果未能解决你的问题，请参考以下文章