Word 文件批量替換術：VBA + Excel 清單一鍵處理大量術語規範化

編輯長文檔需將大量術語統一規範（如「微軟」→「Microsoft」、「谷歌」→「Google」），逐一查找替換極其低效。結合 Excel 術語對照表 與 Word VBA 巨集，即可實現批量、精準、可複用的自動化替換。

前置準備：建立 Excel 術語對照表

1. 新建 Excel 活頁簿，建立兩欄：A 欄「修改前」、B 欄「修改後」。
2. 逐行填入所有需替換的詞彙對照。
3. 另存為 資料清單.xlsx，**與待處理 Word 檔放在同一資料夾**。

植入 VBA 巨集碼

1. 開啟目標 Word 文件 → Alt+F11 開啟 VBE 編輯器。
2. 「插入」→「模組」→ 貼入以下碼（可下載：https://pan.baidu.com/s/1qWPhZ1U）：

Sub 修改()
    Dim arr, i, srcPath, fName
    srcPath = ThisDocument.Path & "\資料清單.xlsx"
    '...（核心邏輯：開啟 Excel 讀取兩欄陣列 → 遍歷 Word 文件執行 Find/Replace）...
End Sub

3. 確認碼中 srcPath 路徑與檔名正確（若不同資料夾/檔名需修改）。
4. Alt+Q 返回 Word → Alt+F8 開啟巨集清單 → 選「修改」→「執行」。
5. 稍待片刻，文件中所有對照表詞彙自動完成替換。

複用價值極高

後續處理同類文件時，**只需修改 Excel 對照表內容，再次執行同一巨集**即可，無需改動程式碼。適合定期報告、系列書籍、法規文件等重複性編輯工作，效率提升數十倍。

提醒：執行前建議備份原文件。巨集會修改文件主體內容，不包含頁首/頁尾/文字框等非主體區域，如需覆蓋全域請擴展碼邏輯。