MS ExcelのリストからMS Wordを複数検索して置き換えます

Question

こんにちは、私はずっとこれをやりたいと思っています。

Excelで、たとえばファイル1（たとえば、A1-B10,2語の単語 - A列の単語がB列の単語に置き換えられる）のリストを持っています。

私は、ファイル2のような文書を持っています。これは、Excelファイルの列Aにある単語のすべての表示が、対応する単語に置き換えられるように、Excelファイル内の単語を実行したいカラムB

本当にありがとうございました。

Answer 1

あなたのことを正しく理解していれば、あなたのWord文書の単語をあなたのExcelファイルにリストされている単語に置き換えることができます。私はあなたが間違っている、あなたがやろうとしているものに私たちに詳細を記入してください理解している場合

Function findAndReplace() 
Dim xlApp As Object 
Dim xlWB As Object 
Dim xlWS As Object 

Dim i As Integer, j As Integer 
Dim lastRow As Integer 

'Set Objects 
Set xlApp = CreateObject("Excel.Application") 
Set xlWB = xlApp.Workbooks.Open("PATH TO EXCEL FILE") 'Replace String with path to Excel File 
Set xlWS = xlWB.Worksheets("Name of Worksheet") 'Replace String with your Worksheet Name 

'get last row of excel file 
lastRow = xlWS.UsedRange.SpecialCells(xlCellTypeLastCell).Row 

'loop through all words in Word Document 
For i = 1 To ThisDocument.Words.Count - 1 Step 1 

    'Loop through cells in Excel File 
    For j = 1 To lastRow Step 1 

     'Replace Word value in Column B of Excel File 
     ThisDocument.Words(i) = Replace(ThisDocument.Words(i), xlWS.Cells(j, 1).Value, xlWS.Cells(j, 2).Value) 
    Next j 
Next i 

'Close Excel and Cleanup 
Set xlWS = Nothing 
xlWB.Close True 
Set xlWB = Nothing 
xlApp.Quit 
Set xlApp = Nothing 

エンド機能

：もしそうなら、このマクロは（MS Wordのマクロ）トリックを行う必要があります。