עזרה לחפש בוורד לפי צבע הטקסט

[חגי פאהן]

שלום וברכה. אני מנסה לחפש טקסט לפי צבע. אני לא יודע מה הצבע, ולכן עשיתי מקרו כזה:

Sub Macro2()
'
' Macro2 Macro
'
'
Dim qqq As Long
qqq = Selection.Range.Font.TextColor

Selection.Find.ClearFormatting
Selection.Find.Font.TextColor = qqq
Selection.Find.Execute

End Sub

שלוקח את הצבע מהטקסט שהסמן עומד עליו, ומבצע חיפוש. אח"כ אני יכול לפתוח את תיבת החיפוש ולעשות בהם כרצוני. זה עבד בצבעים אחרים, אבל יש סוג של צבע שהוא לא תופס. ההקסה שלו הוא -1000000 (יעני איזו תקלה או משהו) והוא לא מוצא.

מצרף פה חלק קטן מהקובץ. מספרי הפרקים הם המדוברים, והם נראים כחולים כאלה. אשמח לעזרה.