Compartilhar via


Método Range.EndOf (Word)

Move ou estende a posição do caractere final de um intervalo para a unidade de texto especificada mais próxima.

Sintaxe

expression. EndOf( _Unit_ , _Extend_ )

expressão Obrigatório. Uma variável que representa um objeto Range.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Unit Opcional Variant A unidade pela qual mover a posição de caractere final. Pode ser qualquer WdUnits, exceto wdLine. O valor padrão é wdWord.
Extend Obrigatório WdMovementType Especifica se é mover ou estender o final do intervalo. Se o valor for wdMove, ambas as extremidades do objeto range ou selection são movidas para o final da unidade especificada. Se wdExtend for usado, o final do intervalo ou seleção é estendido até o final da unidade especificada. O valor padrão é wdMove.

Comentários

Esse método retorna um valor indicando o número de posições de caractere pelas quais o intervalo ou seleção foi movido ou estendido (o movimento é para frente no documento).

Se as posições inicial e final do intervalo ou da seleção já estiverem no final da unidade especificada, esse método não moverá nem estenderá o intervalo ou seleção. Por exemplo, se a seleção estiver no final de uma palavra e o espaço à direita, a instrução a seguir não alterará a seleção ( char é igual a 0 (zero)).

char = Selection.EndOf(Unit:=wdWord, Extend:=wdMove)

Exemplo

Este exemplo estende a seleção até o fim do parágrafo.

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

Este exemplo move myRange para o final da primeira palavra da seleção (após o espaço à direita).

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

Este exemplo adiciona uma tabela, seleciona a primeira célula da linha dois e estende a seleção até o fim da coluna.

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

Confira também

Objeto Range

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.