Método Range.StartOf (Word)
Move ou estende a posição inicial da seleção ou intervalo especificado até o início da unidade de texto especificada mais próxima. Esse método retorna um Long que indica o número de caracteres pelo qual o intervalo ou seleção foi movida ou estendida. O método retornará um número negativo se o movimento for para trás ao longo do documento.
Sintaxe
expression. StartOf( _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 | WdUnits | A unidade pela qual a posição inicial da seleção ou intervalo especificado deve ser movido. Pode ser qualquer constante WdUnits exceto wdLine. O valor padrão é wdWord. |
| Extend | Opcional | WdMovement | Especifica se é mover ou estender o início do intervalo. Se você usar wdMove, ambas as extremidades do intervalo ou seleção são movidas para o início da unidade especificada. Se você usar wdExtend, o início do intervalo ou seleção é estendido até o início da unidade especificada. O valor padrão é wdMove. |
Comentários
Se o início do intervalo ou da seleção especificada já estiver no início da unidade especificada, esse método não moverá nem estenderá o intervalo ou seleção. Por exemplo, se a seleção estiver no início de uma linha, o exemplo a seguir retornará 0 (zero) e não alterará a seleção.
char = Selection.StartOf(Unit:=wdLine, Extend:=wdMove)
Exemplo
Este exemplo seleciona o texto do ponto de inserção até o início da linha. O número de caracteres selecionado é armazenado em charmoved.
Selection.Collapse Direction:=wdCollapseStart charmoved = Selection.StartOf(Unit:=wdLine, Extend:=wdExtend)
Este exemplo move a seleção para o início do parágrafo.
Selection.StartOf Unit:=wdParagraph, Extend:=wdMove
Este exemplo move myRange para o início da segunda frase no documento ( myRange é recolhido e posicionado no início da segunda frase). O exemplo usa o método Select para mostrar a localização de myRange.
Set myRange = ActiveDocument.Sentences(2)
myRange.StartOf Unit:=wdSentence, Extend:=wdMove
myRange.Select
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.