С уважением

е совсем работает, я выбрал текст Ok, но мне нужно прочитать его в переменную.

Sub findTest()

Dim firstTerm As String
Dim secondTerm As String
Dim myRange As Range
Dim selRange As Range
Dim selectedText As String

Set myRange = ActiveDocument.Range
firstTerm = "<patientFirstname>"
secondTerm = "</patientFirstname>"
With myRange.Find
.Text = firstTerm
.MatchWholeWord = True
.Execute
myRange.Collapse direction:=wdCollapseEnd
Set selRange = ActiveDocument.Range
selRange.Start = myRange.End
.Text = secondTerm
.MatchWholeWord = True
.Execute
myRange.Collapse direction:=wdCollapseStart
selRange.End = myRange.Start
selectedText = selRange.Select
End With
End Sub

Я пытаюсь извлечь данные из небольшого псевдо-XML-пакета, поэтому строка поиска будет встречаться только один раз в каждом текстовом документе.

Ответы на вопрос(2)

Ваш ответ на вопрос