Метод TextRange.InsertAfter (Publisher)

Возвращает объект TextRange , представляющий текст, добавленный в конец текстового диапазона.

Синтаксис

expression. InsertAfter (NewText)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
NewText	Обязательный	String	Вставляемый текст.

Возвращаемое значение

TextRange

Пример

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

Sub AppendText() 
 With ActiveDocument.Pages(1).Shapes(1) 
 .TextFrame.TextRange.InsertAfter _ 
 NewText:="Microsoft Publisher Build : " & Build 
 End With 
End Sub

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

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