第一种代码

出错时转到错误句柄

设置myRange=ActiveDocument .范围（选择。开始，活动文档。内容。结束)

对于我范围内的每个iChar .特性

选择MoveRight Unit:=wdCharacter，Count:=1

如果选择。字体。颜色索引=2,然后MsgBox iChar

然后

出口接头

ErrHandle:

“MsgBox”错误号：“Str $(Err)Chr(13)Error $(Err)，48，m_Title

第二种代码

将n调为整数，将信息调为字符串

选择。发现。父母。HomeKey WdStream。清除格式。字体。颜色=wdColorBlue

一边做。执行

n=n 1

信息=信息n vbTab .“vbCrLf家长"提取找到的文本。家长。“删除”删除找到的文本（蓝色字体)

环

以…结尾

如果信息='那么“MsgBox”未找到指定颜色字体其他文件。添加。内容=信息