Метод Range.InsertAfter (Word)

Вставляет указанный текст в конец диапазона.

Синтаксис

выражение. InsertAfter( _Text_ )

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

Параметры

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

Замечания

После применения этого метода диапазон расширяется, чтобы включить новый текст.

Вы можете вставить такие символы, как кавычки, символы табуляции и неразрывные дефисы, с помощью функции Chr Visual Basic с методом InsertAfter . Можно также использовать следующие константы Visual Basic: vbCr, vbLf, vbCrLf и vbTab.

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

Set doc = ActiveDocument 
Set rngRange = _ 
 doc.Range(doc.Paragraphs(1).Start, _ 
 doc.Paragraphs(1).End - 1) 
rngRange.InsertAfter _ 
 " This is now the last sentence in paragraph one."

Однако если диапазон заканчивается знаком абзаца, который также является концом документа, Microsoft Word вставляет текст перед последней меткой абзаца, а не создает новый абзац в конце документа.

Кроме того, если диапазон является закладкой, Word вставляет указанный текст, но не расширяет диапазон или закладку, чтобы включить новый текст.

Пример

В этом примере текст вставляется в конец активного документа. Свойство Content возвращает объект Range .

ActiveDocument.Content.InsertAfter "end of document"

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

response = InputBox("Type some text") 
With ActiveDocument.Paragraphs(1).Range 
 .InsertAfter "1." & Chr(9) & response 
 .InsertParagraphAfter 
End With

См. также

Объект Range

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

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