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文件中的“美元”變成“人民幣”

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

 

標題雖然寫的是將EXCEL中的文字替換到Word，但上例是用的字符串，沒有使用變量。

大家可以根據需要將“美元”，“人民幣”以變量來替換掉就可以了，此處我就不贅述了。