Nabudžio sam neki makro koristeći primere sa interneta
Kod:
Sub test()
Dim d As Document: Set d = ActiveDocument
Dim cnt As Integer
cnt = 0
For i = 1 To d.Words.Count
If d.Words(i).HighlightColorIndex = wdNoHighlight Then
cnt = cnt + 1
End If
Next
MsgBox ("Neobojene reci: " & cnt)
End Sub
Pritisni Alt+F11, desno dugme na "This document", ubaci ovaj kod pa F5 da pokreneš.