excel操作word,替换文本

最新推荐文章于 2023-10-04 17:21:29 发布

奶茶也青春

最新推荐文章于 2023-10-04 17:21:29 发布

阅读量2.9k

点赞数 3

CC 4.0 BY-SA版权

分类专栏： Excel-VBA 文章标签： excel vba

本文链接：https://blog.csdn.net/auguster110/article/details/100767073

Excel-VBA 专栏收录该内容

1 篇文章

订阅专栏

1.在Excel vba编辑器-工具-引用中添加对word.14的引用。

2.利用word vba查找替换功能替换word文本中文字。


'打开模板文件
Set objApp = CreateObject("Word.Application")
objApp.Visible = True

Set objDoc = objApp.Documents.Open(strTemplates, , False)

'开始替换模板预置变量文本
With objApp.Application.Selection
.Find.ClearFormatting
.Find.Replacement.ClearFormatting

With .Find
.Text = "{$合同编号}"
.Replacement.Text = contact_NO
End With
.Find.Execute Replace:=wdReplaceAll

With .Find
.Text = "{$甲方}"
.Replacement.Text = side_A
End With
.Find.Execute Replace:=wdReplaceAll

With .Find
.Text = "{$乙方}"
.Replacement.Text = side_B
End With
.Find.Execute Replace:=wdReplaceAll

End With
'将写入数据的模板另存为文档文件

objDoc.SaveAs strFileName
objDoc.Saved = True

'MsgBox "合同文本生成完毕！", vbYes + vbExclamation
objDoc.Close
objApp.Quit

3.vba对象帮助网站。vba帮助网站