前情提要
http://bbs.csdn.net/topics/391985595
本來都打算自己做一個COM的，后來發現VBA似乎可以滿足我的需求，花了幾天時間填了一個EXCEL列出了需要替換的檔案
借用了一下前人的代碼
Sub 按表替換()
'首先參考ms excel
'運行前關閉所有excel程式
Dim ex As Excel.Application, boo As Excel.Workbook, shee As Worksheet, i As Integer
Set ex = New Excel.Application
Set boo = ex.Workbooks.Open("E:\替換表.xls")
ex.Visible = False '設定EXCEL物件可見（或不可見）
Set shee = boo.Worksheets(1) '設定活動作業表
With shee
For i = 1 To .Range("b65536").End(xlUp).Row
ActiveDocument.Content.Find.Execute findtext:=.Range("a" & i), replacewith:=.Range("b" & i), Replace:=wdReplaceAll, Forward:=True '將excelA列替換為B列內容
Next
End With
boo.Close
ex.Quit
Set boo = Nothing
Set ex = Nothing
End Sub
運行的時候注意在Basic里面“工具“——參考里面勾選Excel Object library，否則宏沒法運行
大體上是搞定了，后續還有些沖突需要慢慢除錯，比如有些單詞包括其他單詞
例如banana=香蕉，翻譯的時候會把an單獨提出來翻譯成“一個”，就變成了“b一個一個a”，不知道怎么解決，需要自己怎么樣加個判斷代碼么？
uj5u.com熱心網友回復：
這個問題也解決了……改個引數就行
MatchWholeWord = True
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/130682.html