Метод TextRange.Collapse (издатель)

Свертывание диапазона или выделенного фрагмента до начальной или конечной позиции. После свертывания диапазона или выделения начальная и конечная точки совпадают.

Синтаксис

выражение. Свертывание (направление)

выражение Переменная, представляющая объект TextRange .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Direction	Обязательный	PbCollapseDirection	Направление, в котором нужно свернуть диапазон или выделение. Может быть одной из констант PbCollapseDirection , объявленных в библиотеке типов Microsoft Publisher.

Примечания

Если вы используете pbCollapseEnd для свертывания диапазона, который ссылается на весь абзац, диапазон будет расположен после знака последнего абзаца (начала следующего абзаца). Однако после свертывания диапазона можно переместить диапазон назад на один символ с помощью метода MoveEnd .

Пример

В этом примере вставляется текст в начале второго абзаца в первой фигуре на первой странице активной публикации. В этом примере предполагается, что указанная фигура является текстовым фреймом, а не фигурой другого типа.

Sub CollapseRange() 
 Dim rngText As TextRange 
 Set rngText = ActiveDocument.Pages(1).Shapes(1) _ 
 .TextFrame.TextRange 
 
 'Collapses range to the end of the range and 
 'enters new text and a new paragraph 
 With rngText 
 .Paragraphs(Start:=1, Length:=1).Collapse Direction:=pbCollapseEnd 
 .Text = "This is a new paragraph." & vbCrLf 
 End With 
End Sub

В этом примере новый текст помещается в конец первого абзаца в первой фигуре на первой странице активной публикации. В этом примере предполагается, что указанная фигура является текстовым фреймом, а не фигурой другого типа.

Sub CollapseSelection() 
 ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange _ 
 .Paragraphs(Start:=1, Length:=1).Select 
 
 'Collapses selection to end and moves cursor back 
 'one character, then enters new text 
 With Selection.TextRange 
 .Collapse Direction:=pbCollapseEnd 
 .MoveEnd Unit:=pbTextUnitCharacter, Size:=-1 
 .Text = " This is a new test." 
 End With 
End Sub

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

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