Возврат текста из документа

Используйте свойство Text для возврата текста из объекта Range или объекта Selection . В следующем примере выбирается следующий абзац, отформатированный со стилем Заголовок 1. Содержимое свойства Text отображается функцией MsgBox .

Sub FindHeadingStyle() 
 With Selection.Find 
 .ClearFormatting 
 .Style = wdStyleHeading1 
 .Execute FindText:="", Format:=True, _ 
 Forward:=True, Wrap:=wdFindStop 
 If .Found = True Then MsgBox Selection.Text 
 End With 
End Sub

Следующая инструкция возвращает и отображает выделенный текст.

Sub ShowSelection() 
 Dim strText As String 
 strText = Selection.Text 
 MsgBox strText 
End Sub

В следующем примере возвращается первое слово в активном документе. Каждый элемент в коллекции Words является объектом Range , который представляет одно слово.

Sub ShowFirstWord() 
 Dim strFirstWord As String 
 strFirstWord = ActiveDocument.Words(1).Text 
 MsgBox strFirstWord 
End Sub

В следующем примере возвращается текст, связанный с первой закладкой в активном документе.

Sub ShowFirstBookmark() 
 Dim strBookmark As String 
 If ActiveDocument.Bookmarks.Count > 0 Then 
 strBookmark = ActiveDocument.Bookmarks(1).Range.Text 
 MsgBox strBookmark 
 End If 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.