поиск заменить несколько слов в слове doc с данными excel

Question

Я пытаюсь заполнить документ слова данными из таблицы Excel. Однако, когда я запускаю код ниже, «sitename» заменяется данными из ячеек «B2», «B3» и рядом других ячеек, которые я использовал для замены других слов. Я просто хочу, чтобы его заменили ячейкой «B2».

Dim results As Workbook 
Dim wApp 
Dim wDoc 
Private Sub populateSite() 
    With wDoc 
     'Site ID 
     .Application.Selection.Find.Text = "<<sitename>>" 
     .Application.Selection.Find.Execute 
     .Application.Selection = results.Sheets(1).Range("B2") 
     .Application.Selection.EndOf 

     'Transformer ID 
     .Application.Selection.Find.Text = "<<TXname>>" 
     .Application.Selection.Find.Execute 
     .Application.Selection = results.Sheets(1).Range("B3") 
     .Application.Selection.EndOf 
    End With 
End Sub 

Sub PopulateReport() 
    Set wApp = CreateObject("Word.Application") 
    Set wDoc = wApp.documents.Open("fileNameAndPath") 
    wApp.Visible = True 
    Call populateSite 
End Sub 

вот link к части слова док

Answer 1

мне просто нужно добавить

Set results = ActiveWorkbook 

перед вызовом функции populateSite. После этого функция работает нормально.

Если это не поможет, отправьте снимок экрана файла слова.