[john_revelator]

Ciao. Non conosco praticamente nulla di vba relativo a word.
Posso darti giusto uno spunto di partenza.

Sub parole()
For Each vword In ActiveDocument.Words
     If vword.Underline = 1 And vword.Font.Bold = True And vword.Font.Color = wdColorBlue Then
        MsgBox vword
    End If
    Next
End Sub

Registra la macro nel tuo file ed eseguila. Dovrebbe mostrarti a schermo ogni singola parola che corrisponde ai tre criteri. Domani se trovo il tempo provo a documentarmi un attimo e a integrare il resto.