不打开WORD文档批量替换文档内容

最新推荐文章于 2021-01-07 14:05:07 发布

weixin_30568715

最新推荐文章于 2021-01-07 14:05:07 发布

阅读量1.6k

点赞数

文章标签： c#

原文链接：http://www.cnblogs.com/lizicheng/p/9095502.html

版权

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

转载于:https://www.cnblogs.com/lizicheng/p/9095502.html