如何使用 Excel 宏将一段文本从 Word 复制到 Excel？

Question

我需要使用 Excel 宏将多个文档的特定文本项（一个或几个单词）从 Word (2007) 复制到 Excel (2007)。

到目前为止，我已经使用 Excel 宏一次打开每个 Word 文档，并将文本定位到与我需要的内容相邻的位置。

我现在需要：

1. 移动到 Word 表格中的相邻单元格。我正在考虑 wdApp.Selection.MoveLeft Unit:=wdCell （或 MoveRight），其中 wdApp 是 Word.Application
2. 复制单元格的内容。我正在考虑 wdApp.Selection.Copy 和类似 wdDoc.Word.Range 的内容，其中 wdDoc 是 Word.Document > 但我无法选择整个单元格内容。
3. 将其粘贴到 Excel 中的变量中。这里我不知道如何将剪贴板复制到Excel变量。

Answer 1

更新为显示搜索文本，然后选择相对于其位置的内容：

Sub FindAndCopyNext()

    Dim TextToFind As String, TheContent As String
    Dim rng As Word.Range

    TextToFind = "wibble" 'the text you're looking for to
                          ' locate the other content

    Set rng = wdApp.ActiveDocument.Content
    rng.Find.Execute FindText:=TextToFind, Forward:=True

    If rng.Find.Found Then
        If rng.Information(wdWithInTable) Then
          TheContent = rng.Cells(1).Next.Range.Text      'move right on row
          'TheContent = rng.Cells(1).Previous.Range.Text 'move left on row
          MsgBox "Found content '" & TheContent & "'"
        End If
    Else
        MsgBox "Text '" & TextToFind & "' was not found!"
    End If

End Sub

然后将变量 TheContent 分配给所需的 Excel 范围。