Question

我正在尝试使用Excel电子表格中的数据填充word文档。然而，当我运行下面的代码时，“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

这是doc {/ p>这个词的一部分link

Answer 1

我只需要添加

Set results = ActiveWorkbook

在调用populateSite函数之前。之后功能正常。

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

搜索使用Excel数据替换word doc中的多个单词

1 个答案: