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

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

Синтаксис

выражение. InsertBefore (NewText)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Новый текст	Обязательный	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 и обратная связь.