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
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.