Share via

Expand Method [Publisher 2003 VBA Language Reference]

  • Article

Expands the specified range or selection. Returns or sets a Long that represents the number of specified units added to the range or selection.

expression.Expand(Unit)

expression Required. An expression that returns one of the objects in the Applies To list.

PbTextUnit

PbTextUnit can be one of these PbTextUnit constants.
pbTextUnitCell
pbTextUnitCharacter
pbTextUnitCharFormat
pbTextUnitCodePoint
pbTextUnitColumn
pbTextUnitLine
pbTextUnitObject
pbTextUnitParaFormat
pbTextUnitParagraph
pbTextUnitRow
pbTextUnitScreen
pbTextUnitSection
pbTextUnitSentence
pbTextUnitStory
pbTextUnitTable
pbTextUnitWindow
pbTextUnitWord

Remarks

The Expand method moves both endpoints of a range if necessary; to move only one endpoint of a range, use the MoveStart or MoveEnd method.

Example

This example creates a range that refers to the first word in the first shape of the active publication, formats the font for the word, and then it expands the range to reference the entire first paragraph and formats the font for the whole line.

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

Applies to | TextRange Object