Метод Selection.InsertAfter (Word)
Вставляет указанный текст в конец диапазона или выделенного фрагмента.
Синтаксис
выражение. InsertAfter( _Text_ )
выражение (обязательно). Переменная, представляющая объект Selection .
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| Текст | Обязательный | String | Вставляемый текст. |
Замечания
После использования этого метода выделенная область расширяется, чтобы включить новый текст.
Вы можете вставить такие символы, как кавычки, символы табуляции и неразрывные дефисы, с помощью функции Chr Visual Basic с методом InsertAfter . Можно также использовать следующие константы Visual Basic: vbCr, vbLf, vbCrLf и vbTab.
При использовании этого метода с выделенным фрагментом, ссылающимся на весь абзац, текст вставляется после конечной отметки абзаца (текст будет отображаться в начале следующего абзаца). Чтобы вставить текст в конец абзаца, определите конечную точку и вычесть 1 из этого расположения (знак абзаца — один символ), как показано в следующем примере.
ActiveDocument.Range( _
ActiveDocument.Paragraphs(1).Range.Start, _
ActiveDocument.Paragraphs(1).Range.End - 1) _
.Select
Selection.InsertAfter _
" This is now the last sentence in paragraph one."
Однако если выделение заканчивается знаком абзаца, который также является концом документа, Microsoft Word вставляет текст перед последней меткой абзаца, а не создает новый абзац в конце документа. Кроме того, если выбрана закладка, Word вставляет указанный текст, но не расширяет выделение или закладку, чтобы включить новый текст.
Пример
В этом примере текст вставляется в конец выделенного фрагмента, а затем сворачивается до точки вставки.
With Selection
.InsertAfter "appended text"
.Collapse Direction:=wdCollapseEnd
End With
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.