excel - VBA Word：将选择复制/粘贴到新列表中

Question

我对 VBA 很陌生，并且已经设法用我的代码做到了这一点。它目前在我的 Word 文档中搜索字符串“The_XXXX”（其中 X 是 #0-9），能够复制该字符串，然后找到下一个实例。我希望能够在复制 Selection.Copy 之后将每个实例粘贴到一个列表中，或者甚至创建一个 Excel 工作表，其中包含字符串的每个实例到一个新单元格中。将有大约 100 个实例。

Sub FindString()

Dim findRange As Word.Range
Set findRange = ActiveDocument.Range

'CREATE LIST HERE

With findRange.Find
    .ClearFormatting
    .Text = "The_[0-9]{4}"
    .MatchWildcards = True

    Do While .Execute(Forward:=True) = True
        findRange.Select
        Selection.Copy
        
        'ADD TO LIST/EXCEL HERE
        
        findRange.Collapse wdCollapseEnd
    Loop
End With

End Sub

标签： excelvbalistms-wordpaste