No Word, é fácil usar o vba para aplicar um destaque a mais de uma string, palavra, frase etc. depois que o usuário do documento seleciona Ctrl e seleciona um monte deles. No entanto, quando pressiono Ctrl e seleciono algumas palavras e executo a seguinte instrução, apenas a última das minhas palavras selecionadas é alterada. Existe uma maneira de aplicar wdtitleword a mais de uma palavra selecionada? Obrigado.

sub a()
Selection.Range.Case = wdTitleWord
end sub