EXCEL-VBA（WORD）：将EXCEL中的文字替换到Word中的文字

最新推荐文章于 2024-08-17 08:42:59 发布

小鸿叔

最新推荐文章于 2024-08-17 08:42:59 发布

阅读量7.7k

点赞数 3

分类专栏： OFFICE-EXCEL VBA

本文链接：https://blog.csdn.net/jyh_jack/article/details/90138972

版权

OFFICE-EXCEL 同时被 2 个专栏收录

52 篇文章 5 订阅

订阅专栏

VBA

42 篇文章 17 订阅

订阅专栏

Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Dim WordDoc As Object
Set WordDoc = WordApp.Documents.Open(ThisWorkbook.Path & "\AAA.docx") '工作簿同一目录下的AAA.DOCX
WordApp.Selection.Find.ClearFormatting
WordDoc.Range.Find.Execute findtext:="美元", ReplaceWith:="人民币", MatchWildcards:=True, Forward:=True, Replace:=wdReplaceAll, Wrap:=wdFindContinue
WordDoc.SaveAs (ThisWorkbook.Path & "BBB.docx")
WordDoc.Close

以上代码是将WORD文件中的“美元”变成“人民币”

特别注意：一定要在EXCEL工具－引用 “Microsoft Word 1?.0 Object Library”，否则一些Word中的类无法使用的。

标题虽然写的是将EXCEL中的文字替换到Word，但上例是用的字符串，没有使用变量。

大家可以根据需要将“美元”，“人民币”以变量来替换掉就可以了，此处我就不赘述了。