Método TextRange.Expand (Publisher)

Se expande el intervalo o selección especificados. Devuelve o establece un Long que representa el número de unidades especificadas agregadas al intervalo o selección.

Sintaxis

más sencilla.Expandir (unidad)

expresión Variable que representa un objeto TextRange .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
Unit Obligatorio PbTextUnit Unidad que se va a expandir el intervalo. Puede ser una de las constantes PbTextUnit declaradas en la biblioteca de tipos de Microsoft Publisher.

Valor devuelto

Long

Comentarios

El método Expand mueve ambos extremos de un rango si es necesario; para mover solo un extremo de un rango, use el método MoveStart o el método MoveEnd .

Ejemplo

En este ejemplo se crea un intervalo que hace referencia a la primera palabra de la primera forma de la publicación activa, se da formato a la fuente de la palabra y, a continuación, se expande el intervalo para hacer referencia a todo el primer párrafo y se da formato a la fuente de toda la línea.

Sub ExpandRange() 
 Dim rngText As TextRange 
 
 Set rngText = ActiveDocument.Pages(1).Shapes(1) _ 
 .TextFrame.TextRange.Words(Start:=1, Length:=1) 
 With rngText 
 With .Font 
 .Size = 20 
 .Italic = msoTrue 
 End With 
 .Expand Unit:=pbTextUnitLine 
 .Font.Bold = msoTrue 
 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.

  • Last updated on