VBA determines whether Word text color is blue

① First kind of code

On Error GoTo Errhandle

Set MyRange = ActiveDocument.Range (Selection.start, ActiveDocument.Content.End)

For each ichar in Myrange.characters

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

If Selection.Font.ColorIndex = 2 Then MsgBox Ichar

Next

Exit Sub

Errhandle:

MsgBox "Error Number:" + str$ (Err) + Chr + error$ (err), M_title

② the second type of code

Dim N as Integer, Info as String

With Selection.Find

. Parent.homekey wdstory

. ClearFormatting

. Font.Color = Wdcolorblue

Do While. Execute

n = n + 1

info = info & N & vbTab &. Parent & vbCrLf ' extract found text

. Parent.delete ' Delete found text (blue font)

Loop

End With

If info = "" Then MsgBox "specified color font not found" Else Documents.Add.Content = Info