【翻訳について】解決していただいた方に高ポイントお約束します。

sm0k3 さんの提示されたページを参考にしたものですが、Word ファイル内の単語をEXCEL

のデータで置換する例です。

EXCEL のA列に検索語、B列に訳語が並んでいることを想定しています。

(1)上記のシートを引いた状態でALT+F11を押し、

(2)開いたウィンドウで 挿入⇒標準モジュールで開き、

(3)下記をコピーします。

(4)先頭にある翻訳対象のWORDファイルのファイルパスを実際に合わせます。

(5)EXCELに戻ってALT+F8でCATを選んで実行してみてください。

Option Explicit

Sub CAT()
    'オープンするワードのファイル名をパス名付きで入れます
    Const wordFilePath = "C:\test.doc"  '★★★ 実際のファイルパスにしてください。
    
    Dim objWord  As Object
    Set objWord = CreateObject("Word.Application")
    
    'Excelの最後の行を求めます
    Dim lastRow  As Long
    lastRow = Sheets("Sheet1").Range("A1").End(xlDown).Row
    
    'ワードを開きます。
    objWord.Visible = True
    objWord.Documents.Open wordFilePath
    
    
    '1行目から最後の行まで、繰り返します。
    Dim r        As Long
    For r = 1 To lastRow
        '検索するキーワードを設定します。
        objWord.Selection.Find.Text = Sheets("Sheet1").Cells(r, "A").Value
        
        '検索する方向を指定します。
        objWord.Selection.Find.Forward = True
        objWord.Selection.Find.Replacement.Text = Cells(r, "A").Value & "(" & Cells(r, "B").Value & ")"
        objWord.Selection.Find.Replacement.Font.Color = 255
        
        '検索を実行し、全てを置換します。
        objWord.Selection.Find.Execute , , , , , , , , , , wdReplaceAll
    Next
End Sub

不明な点はコメントで補足します。