在单词中查找字符串，选择包含下一个单词的字符串

Question

我为以下问题而苦苦挣扎。 在 excel-VBA 中，我想找到某个字符串并选择该字符串以及下一个单词，以便将其传递给变量。

例： 搜索字符串是单词"版本"，后跟一个数字。我现在想同时选择两者。

我的代码：

Sub Test()
Dim Dokument As String, Versionsnummer As String
Dim oAppWD As Object, oDoc As Object
Set oAppWD = CreateObject("Word.Application")
If Not oAppWD Is Nothing Then
oAppWD.Visible = True
If oAppWD.Options.AllowReadingMode = True Then 'Word nicht im Lesemodus starten bei  _ Schreibgeschützten Dokumenten
oAppWD.Options.AllowReadingMode = False
End If
Dokument = "I:Dokumenttest.docx"
Set oDoc = oAppWD.Documents.Open(Dokument)
With oDoc
With .Range
With .Find
.Forward = True
.ClearFormatting
.Text = "Version"
.MatchWholeWord = True
.MatchCase = False
.Wrap = wdFindContinue
.Execute
End With
If .Find.Found = True Then
.MoveEnd wdWord, 1
Versionsnummer = .Text
End If
End With
End With
End If
End Sub

但是，"版本编号"在我的初始 excel 文件中而不是在 word 文档中选择某些内容。 我很乐意寻求帮助。

此致敬意

彼得

Answer 1

只需替换：

If .Find.Found = True Then     
oDoc.Range.Row.Select
'Selection.SelectRow
Versionsnummer = oDoc.Range.Selection                 
End If

跟：

If .Find.Found = True Then
.MoveEnd wdWord, 1
Versionsnummer = .Text
End If

无需选择任何内容。