Adjetivos.

No Microsoft Word, você pode usar o recurso de "Localizar e Substituir" para realçar automaticamente todos os adjetivos em um texto. Aqui está um guia passo a passo:

1. Abra o seu documento no Microsoft Word.

2. Pressione "Ctrl + H" para abrir a janela "Localizar e Substituir".

3. Clique na aba "Substituir".

4. No campo "Localizar", digite "^$".

5. No campo "Substituir", clique em "Formatar" e escolha "Fonte". Isso abrirá a janela "Fonte".

6. Na janela "Fonte", clique na aba "Fonte" e selecione o estilo que você deseja aplicar aos adjetivos (por exemplo, negrito, itálico, sublinhado, etc.).

7. Clique em "OK" para fechar a janela "Fonte".

8. Agora, clique em "Substituir Tudo". Isso realçará todos os adjetivos no documento com o estilo que você escolheu.

Lembre-se de que essa abordagem destacará todos os termos que seguem imediatamente um espaço, então, se houver casos em que isso não seja desejado, você precisará ajustar manualmente. Além disso, lembre-se de revisar o documento após o destaque para garantir que tudo tenha sido realçado corretamente.

Sub HighlightAdjectives()
    Dim wordDoc As Document
    Dim wordRange As Range
    Dim word As Range
    Dim i As Integer
    Dim adjectiveList As Variant

    ' Lista de adjetivos (você pode adicionar ou remover adjetivos dessa lista)
    adjectiveList = Array("bonito", "feliz", "grande", "pequeno", "rápido", "lento", "brilhante", "escuro")

    Set wordDoc = ActiveDocument

    ' Iterar por todas as palavras no documento
    For Each word In wordDoc.Words
        For i = LBound(adjectiveList) To UBound(adjectiveList)
            If Trim(word.Text) = adjectiveList(i) Then
                word.HighlightColorIndex = wdYellow
                Exit For
            End If
        Next i
    Next word

    MsgBox "Todos os adjetivos foram realçados.", vbInformation
End Sub