Modificar texto

En este tema se Visual Basic ejemplos relacionados con las tareas identificadas en las secciones siguientes.

Para obtener información y ver ejemplos de otras tareas de modificación, vea los siguientes temas:

Devolver texto de un documento
Seleccionar texto en un documento
Insertar texto en un documento
Modificar una parte de un documento

Determinar si está seleccionado texto

The Type](.. /.. /.. /api/Word.Selection.Type.md) de la propiedad Selection](.. /.. /.. El objeto /api/Word.Selection.md) devuelve información sobre el tipo de selección. En el siguiente ejemplo, se muestra un mensaje si la selección es un punto de inserción.

Sub IsTextSelected() 
 If Selection.Type = wdSelectionIP Then MsgBox "Nothing is selected" 
End Sub

Contraer una selección o un intervalo

Utilice el método Collapse para contraer un objeto Selection o un objeto Range en su punto inicial o final. En el siguiente ejemplo, se contrae la selección en un punto de inserción situado al principio de la selección.

Sub CollapseToBeginning() 
 Selection.Collapse Direction:=wdCollapseStart 
End Sub

En el siguiente ejemplo, se cancela el intervalo hasta su punto final, después de la primera palabra, y se agrega texto nuevo.

Sub CollapseToEnd() 
 Dim rngWords As Range 
 
 Set rngWords = ActiveDocument.Words(1) 
 With rngWords 
 .Collapse Direction:=wdCollapseEnd 
 .Text = "(This is a test.) " 
 End With 
End Sub

Ampliar una selección o un intervalo

En el ejemplo siguiente se usa MoveEnd](.. /.. /.. Método /api/Word.Selection.MoveEnd.md) del objeto Selection para extender el final de la selección para incluir tres palabras adicionales. The MoveLeft, * MoveRight](.. /.. /.. /api/Word.Selection.MoveRight.md),** MoveUp](.. /.. /.. Los métodos /api/Word.Selection.MoveUp.md) y **Down también se pueden usar para extender un objeto **Se ion.

Sub ExtendSelection() 
 Selection.MoveEnd Unit:=wdWord, Count:=3 
End Sub

En el ejemplo siguiente se usa MoveEnd](.. /.. /.. Método /api/Word.Range.MoveEnd.md) del objeto Range para ampliar el intervalo para incluir los tres primeros párrafos en el documento activo.

Sub ExtendRange() 
 Dim rngParagraphs As Range 
 
 Set rngParagraphs = ActiveDocument.Paragraphs(1).Range 
 rngParagraphs.MoveEnd Unit:=wdParagraph, Count:=2 
End Sub

Volver a definir una selección o un intervalo

Use el método GetRange para redefinir un objeto Selection existente o un objeto Range. Para obtener más información, vea Trabajar con el objeto Selection o Trabajar con objetos Range.

Cambiar texto

Puede cambiar texto modificando el contenido de un intervalo. La siguiente instrucción cambia la primera palabra del documento activo estableciendo text](.. /.. /.. Propiedad /api/Word.Range.Text.md) de un objeto nge a "The".

Sub ChangeText() 
 ActiveDocument.Words(1).Text = "The " 
End Sub

También puede usar el método Delete, el objeto Selection o el objeto Range para eliminar texto existente y, a continuación, insertar texto nuevo mediante el método InsertAfter o el método InertBefore. En el siguiente ejemplo, se elimina el primer párrafo del documento activo y se inserta texto nuevo.

Sub DeleteText() 
 Dim rngFirstParagraph As Range 
 
 Set rngFirstParagraph = ActiveDocument.Paragraphs(1).Range 
 With rngFirstParagraph 
 .Delete 
 .InsertAfter Text:="New text" 
 .InsertParagraphAfter 
 End With 
End Sub

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.