Метод TextRange.InsertBefore (Publisher)

Статья
04/07/2023

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

Синтаксис

expression. InsertBefore (NewText)

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

Параметры

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

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

TextRange

Пример

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

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

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

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