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(13) + Error$(Err), 48, m_Title

②第二种代码

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 '提取找到的文本

.Parent.Delete '删除找到的文本(蓝色字体)

Loop

End With

If Info = "" Then MsgBox "未找到指定颜色字体" Else Documents.Add.Content = Info

上一篇：表格制作教程word：如何解决打开Word.Excel等都要重新配置安装的方法 下一篇：word制作简历教程：如何解决Word文档打印后乱码的问题

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。