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