蛍光ペンを、色別に処理する

Wordでは、「蛍光ペン」を色別に検索する事ができず、結果としてWordVBAでも、蛍光ペンの色別検索を利用する事ができません。
文書内の文字を１つずつ舐めて該当範囲を選択する事も方法の１つですが、検索機能を利用して蛍光ペンの色別処理を行う方法を考えます。

以下のソースは、文書の先頭から黄色蛍光ペンを探し、「黄色選択したよ」とメッセージを表示するVBAサンプルです。

Sub taginsHighlightColor()

    Selection.HomeKey Unit:=wdStory

    Selection.Find.ClearFormatting

    Selection.Find.Highlight = True

    Selection.Find.Wrap = wdFindStop

    Do While Selection.Find.Execute

        Do While Selection.Range.HighlightColorIndex = 9999999

            Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend

        Loop

        Select Case Selection.Range.HighlightColorIndex

            Case wdYellow

                MsgBox "黄色選択したよ"

        End Select

        Selection.MoveRight Unit:=wdCharacter, Count:=1

    Loop

End Sub