Método Range.InsertAfter (Word)
Inserta el texto especificado al final de un intervalo.
Sintaxis
expresión. InsertAfter( _Text_ )
expresión requerida. Variable que representa un objeto Range.
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Text | Obligatorio | String | Texto que se va a insertar. |
Comentarios
Después de aplicar este método, el intervalo se expande para incluir el nuevo texto.
Puede insertar caracteres como comillas, caracteres de tabulación y guiones de no separación mediante la función Chr de Visual Basic con el método InsertAfter. También puede usar las siguientes constantes de Visual Basic: vbCr, vbLf, vbCrLf y vbTab.
Si utiliza este método con un intervalo que hace referencia a un párrafo completo, el texto se inserta a continuación de la marca de fin de párrafo; es decir, dicho texto aparecerá al principio del párrafo siguiente. Para insertar el texto al final de un párrafo, localice el punto de finalización y reste 1 desde esta ubicación (la marca de párrafo ocupa un carácter), como muestra el siguiente ejemplo.
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."
No obstante, si el intervalo finaliza con una marca de párrafo que también resulta ser el final del documento, Microsoft Word inserta el texto antes de la marca de párrafo final en lugar de crear un nuevo párrafo al final del documento.
Por otra parte, si el intervalo es un marcador, Word inserta el texto especificado, pero no amplía el intervalo para incluir el nuevo texto.
Ejemplo:
En este ejemplo se inserta texto al final del documento activo. La propiedad Content devuelve un objeto Range.
ActiveDocument.Content.InsertAfter "end of document"
En este ejemplo, se inserta texto desde un cuadro de entrada de datos como segundo párrafo del documento activo.
response = InputBox("Type some text")
With ActiveDocument.Paragraphs(1).Range
.InsertAfter "1." & Chr(9) & response
.InsertParagraphAfter
End With
Vea también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.