Vba 用excel数据搜索并替换word文档中的多个单词

我试图用excel电子表格中的数据填充word文档。然而，当我运行下面的代码时，“sitename”被替换为单元格“B2”、“B3”和我用来替换其他单词的许多其他单元格中的数据。我只想把它换成“B2”单元

Dim结果作为工作簿
暗色wApp
暗色wDoc
私有亚人口站点（）
与wDoc
'站点ID
.Application.Selection.Find.Text=“”
.Application.Selection.Find.Execute
.Application.Selection=结果表（1）.范围（“B2”）
.Application.Selection.EndOf
'变压器ID
.Application.Selection.Find.Text=“”
.Application.Selection.Find.Execute
.Application.Selection=结果表（1）.范围（“B3”）
.Application.Selection.EndOf
以
端接头
子种群报告（）
设置wApp=CreateObject（“Word.Application”）
设置wDoc=wApp.documents.Open（“fileNameAndPath”）
wApp.Visible=True
叫大众网站
端接头

这是我刚刚需要添加的单词doc的一部分

Set results = ActiveWorkbook

在调用populateSite函数之前。 之后，该功能工作正常

---

如果这不起作用，请发送word文件的屏幕截图。

我添加了这一行，但现在它只删除文本，不替换任何内容。我的编辑中包含了一个屏幕截图，您是否尝试过搜索/替换。最后，我在word文件中放置了书签，并替换了它们。这要繁琐得多，但宏工作正常。谢谢

Set results = ActiveWorkbook