Word Распознать результат поиска

@SkyFlyStaR · Регистрация: 16.10.2011

Author24 — интернет-сервис помощи студентам

Производится поиск в документе текста в определенном формате, допустим - ##? (два числа и один любой символ, следующий за ними)

Visual Basic

With Selection.Find
   .Text = "##?"
   .Forward = True
   .Format = False
   .MatchCase = False
   .MatchWholeWord = False
   .MatchAllWordForms = False
   .MatchSoundsLike = False
   .MatchWildcards = True
   .Wrap = wdFindContinue
   If .Execute = False Then
      MsgBox ("Ошибка!")
   Else
      MsgBox (.Text)
   End If
End With

Если такой текст найдется, то MsgBox покажет именно ##?, а хотелось бы увидеть текст, имеющийся в документе в таком формате

@KoGG · 23.04.2014, 15:42

Visual Basic

1	MsgBox (Selection.Text)

@SkyFlyStaR · 23.04.2014, 20:08 **[ТС]**

А что, если поиск будет вестись с помощью Range.Find?

Добавлено через 5 минут
Вопрос отпал, решение - MsgBox (ActiveDocument.Range(Start:=.Parent.Start, End:=.Parent.End))

@KoGG · 24.04.2014, 09:45

Visual Basic

Dim myRange As Range
Set myRange = ActiveDocument.Content
With myRange.Find
    ' . . .
     MsgBox myRange.Text
    ' . . .
End With

@SkyFlyStaR 1 / 1 / 0 Регистрация: 16.10.2011 Сообщений: 69
	23.04.2014, 20:08 [ТС]	3
	А что, если поиск будет вестись с помощью Range.Find? Добавлено через 5 минут Вопрос отпал, решение - MsgBox (ActiveDocument.Range(Start:=.Parent.Start, End:=.Parent.End)) 0

	24.04.2014, 09:45

Word Распознать результат поиска

Решение