Modificar texto

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

Determinar si el texto está seleccionadoContraer una selección o un intervaloAmpliar una selección o rangoRedefinir untexto de cambio de selección o rango

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

Devolver texto de un documentoSelección de texto en un documentoInsertar texto en un documentoManipulando una parte de un documento

Determinar si el texto está seleccionado

Type](.. /.. /.. Propiedad /api/Word.Selection.Type.md) de 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 Range al 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

Ampliación de una selección o 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. Los métodos MoveLeft, MoveRight, MoveUp y Move Down también se pueden usar para ampliar un objeto Selection .

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

Redefinir una selección o un intervalo

Use el método GetRange para volver a definir un objeto Selection o un objeto Range existentes. 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 Range en "The ".

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

También puede usar el método Delete o 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.