在word文档中查找唯一的文本，并从excel vba中复制此word文档中的连续字符串。

Dim wordApp As Object
Dim wordDoc As Object

Set wordApp = CreateObject("Word.Application")
Set wordDoc = wordApp.Documents.Open("C:\path\to\your\word\document.docx")

Dim searchRange As Object
Dim searchText As String

searchText = "要查找的文本"
Set searchRange = wordDoc.Content

With searchRange.Find
    .Text = searchText
    .Forward = True
    .Wrap = 1 'wdFindContinue
    .MatchWholeWord = True
    .MatchCase = False
    .Execute
End With

If searchRange.Find.Found Then
    Dim continuousString As String
    continuousString = searchRange.Text
    
    ' 将连续字符串复制到Excel中的某个单元格
    ThisWorkbook.Sheets("Sheet1").Range("A1").Value = continuousString
End If

wordDoc.Close
wordApp.Quit

Set wordDoc = Nothing
Set wordApp = Nothing