Método Selection.MoveEndUntil (Word)
Move a posição final da seleção especificada até um dos caracteres especificados ser localizado no documento.
Sintaxe
expression. MoveEndUntil( _Cset_ , _Count_ )
expressão Obrigatório. Uma variável que representa um objeto Selection.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Cset | Obrigatório | Variant | Um ou mais caracteres. Esse argumento é sensível a casos. |
| Count | Opcional | Variant | O número máximo de caracteres pelo qual a seleção especificada deve ser movido. Pode ser um número ou wdForward ou wdBackward. Se Count for um número positivo, a seleção será movida para frente no documento. Se for um número negativo, a seleção será movida para trás. O valor padrão é wdForward. |
Valor de retorno
Long
Comentários
Esse método retorna um Long que representa o número de caracteres pelos quais a posição final da seleção especificada foi movida. Se Count for maior do que 0 (zero), esse método retorna o número de caracteres movidos mais 1. Se Count for menor que 0 (zero), esse método retorna o número de caracteres movidos menos 1. Se nenhum caractere Cset forem encontrada, a seleção não será alterada e o método retornará 0 (zero). Se a posição final for movida para trás até um ponto que preceda a posição inicial original, a posição inicial será definida com a nova posição final.
Se o movimento for para frente no documento, a seleção será expandida.
Exemplo
Este exemplo estende a seleção para frente no documento até a letra "a" ser localizada. Em seguida, o exemplo expande a seleção em um caractere para incluir a letra "a".
With Selection
.MoveEndUntil Cset:="a", Count:=wdForward
.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
End With
Este exemplo estende a seleção para frente no documento até uma tabulação ser localizada. Se não for localizado um caractere de tabulação nos próximos 100 caracteres, a seleção não será movida.
char = Selection.MoveEndUntil(Cset:=vbTab, Count:=100)
If char = 0 Then StatusBar = "Selection not moved"
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.