Propriedade Selection.StartIsActive (Word)
True se o início da seleção estiver ativo. Boolean de leitura/gravação.
Sintaxe
expression. StartIsActive
Expressão Uma expressão que retorna um objeto Selection .
Comentários
Se a seleção não estiver recolhida para um ponto de inserção, o início ou o final da seleção está ativo. O final ativo da seleção move quando você chama os métodos a seguir: EndKey, Extend (com o argumento de caracteres), HomeKey, MoveDown, MoveLeft, MoveRight e MoveUp.
Essa propriedade é equivalente ao uso da propriedade Flags com a constante wdSelStartActive. No entanto, usando a propriedade Flags requer operações binárias, que são mais complicadas que usa a propriedade StartIsActive.
Exemplo
Este exemplo estende a seleção atual através das próximas duas palavras. Para certificar-se de que qualquer texto selecionado atualmente fique selecionado durante a extensão, o final da seleção é feito ativo pela primeira vez. (Por exemplo, se as três primeiras palavras deste parágrafo foram marcadas, mas o início da seleção foram ativo, a chamada do método MoveRight seria cancelar a seleção das duas primeiras palavras.)
With Selection
.StartIsActive = False
.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend
End With
Aqui está o mesmo exemplo usando a propriedade Flags. Essa solução é problemática porque você só pode desativar uma configuração de propriedade Flags pelo sobrescrevê-lo com um valor não relacionado.
With Selection
If (.Flags And wdSelStartActive) = wdSelStartActive Then _
.Flags = wdSelReplace
.MoveRight Unit:=wdWord, Count:=2, Extend:=wdExtend
End With
Aqui está o mesmo exemplo usando o método MoveEnd, o que elimina a necessidade de verificar qual final da seleção está ativa.
With Selection
.MoveEnd Unit:=wdWord, Count:=2
End With
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.