Метод Selection.InsertAfter (Word)

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

Синтаксис

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

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

Параметры

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