EXCEL-VBA（WORD）：将EXCEL中的⽂字替换到Word中
的⽂字
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⽂件中的“美元”变成“⼈民币”replaceall()
特别注意：⼀定要在EXCEL⼯具－引⽤ “Microsoft Word 1?.0 Object Library”，否则⼀些Word中的类⽆法使⽤的。
标题虽然写的是将EXCEL中的⽂字替换到Word，但上例是⽤的字符串，没有使⽤变量。
⼤家可以根据需要将“美元”，“⼈民币”以变量来替换掉就可以了，此处我就不赘述了。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。