Método Selection.SelectCurrentColor (Word)

Estende a seleção para frente até encontrar texto com uma cor diferente.

Sintaxe

expression. SelectCurrentColor

expression é obrigatório. Uma variável que representa um objeto Selection.

Exemplo

Este exemplo estende a seleção do início do documento até o primeiro caractere formatado com uma cor diferente e exibe o número de caracteres da seleção resultante.

Selection.HomeKey Unit:=wdStory, Extend:=wdMove 
Selection.SelectCurrentColor 
n = Len(Selection.Text) 
MsgBox "Contiguous characters with the same color: " & n

Confira também

Objeto Selection

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.