Método TextRange.Collapse (Publisher)

Contrae un intervalo o selección a la posición inicial o final. Después de contraer un intervalo o una selección, los puntos inicial y final serán iguales.

Sintaxis

expresión. Contraer (dirección)

expresión Variable que representa un objeto TextRange .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Direction	Obligatorio	PbCollapseDirection	La dirección en la que se contrae el intervalo o la selección. Puede ser una de las constantes PbCollapseDirection declaradas en la biblioteca de tipos de Microsoft Publisher.

Observaciones

Si utiliza pbCollapseEnd para contraer un intervalo que hace referencia a un párrafo completo, el intervalo se encontrará después de marca de párrafo final (el principio del párrafo siguiente). Sin embargo, puede mover el intervalo hacia atrás un carácter mediante el método MoveEnd después de contraer el intervalo.

Ejemplo

En este ejemplo se inserta texto al inicio del segundo párrafo de la primera forma de la primera página de la publicación activa. En este ejemplo se supone que la forma especificada es un marco de texto y no otro tipo de forma.

Sub CollapseRange() 
 Dim rngText As TextRange 
 Set rngText = ActiveDocument.Pages(1).Shapes(1) _ 
 .TextFrame.TextRange 
 
 'Collapses range to the end of the range and 
 'enters new text and a new paragraph 
 With rngText 
 .Paragraphs(Start:=1, Length:=1).Collapse Direction:=pbCollapseEnd 
 .Text = "This is a new paragraph." & vbCrLf 
 End With 
End Sub

En este ejemplo se coloca texto nuevo al final del primer párrafo en la primera forma de la primera página de la publicación activa. En este ejemplo se supone que la forma especificada es un marco de texto y no otro tipo de forma.

Sub CollapseSelection() 
 ActiveDocument.Pages(1).Shapes(1).TextFrame.TextRange _ 
 .Paragraphs(Start:=1, Length:=1).Select 
 
 'Collapses selection to end and moves cursor back 
 'one character, then enters new text 
 With Selection.TextRange 
 .Collapse Direction:=pbCollapseEnd 
 .MoveEnd Unit:=pbTextUnitCharacter, Size:=-1 
 .Text = " This is a new test." 
 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.