Метод 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
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.