Compartilhar via

Range.EndOf Method

  • Artigo
Word Developer Reference

Moves or extends the ending character position of a range to the end of the nearest specified text unit.

Syntax

expression.EndOf(Unit, Extend)

expression   Required. A variable that represents a Range object.

Parameters

Name Required/Optional Data Type Description
Unit Optional Variant The unit by which to move the ending character position. Can be any WdUnits, except wdLine. The default value is wdWord.
Extend Required WdMovementType Specifies whether to move or extend the end of the range. If the value is wdMove, both ends of the range or selection object are moved to the end of the specified unit. If wdExtend is used, the end of the range or selection is extended to the end of the specified unit. The default value is wdMove.

Remarks

This method returns a value that indicates the number of character positions the range or selection was moved or extended (movement is forward in the document).

If the both the starting and ending positions for the range or selection are already at the end of the specified unit, this method doesn't move or extend the range or selection. For example, if the selection is at the end of a word and the trailing space, the following instruction doesn't change the selection (char equals 0 (zero)).

Visual Basic for Applications 
  char = Selection.EndOf(Unit:=wdWord, Extend:=wdMove)

Example

This example extends the selection to the end of the paragraph.

Visual Basic for Applications 
  charmoved = Selection.EndOf(Unit:=wdParagraph, Extend:=wdExtend)
If charmoved = 0 Then MsgBox "Selection unchanged"

This example moves myRange to the end of the first word in the selection (after the trailing space).

Visual Basic for Applications 
  Set myRange = Selection.Characters(1)
myRange.EndOf Unit:=wdWord, Extend:=wdMove

This example adds a table, selects the first cell in row two, and then extends the selection to the end of the column.

Visual Basic for Applications 
  Set myRange = ActiveDocument.Range(0, 0)
Set myTable = ActiveDocument.Tables.Add(Range:=myRange, _
    NumRows:=5, NumColumns:=3)
myTable.Cell(2, 1).Select
Selection.EndOf Unit:=wdColumn, Extend:=wdExtend

See Also