vba判断word文字颜色是否为蓝色的两种代码

vba判断word文字颜色是否为蓝色的两种代码

Admin | 2010-4-11 11:10:43 | TrackRecord: 1084 Times | Tag标签：Word教程打印本页

您当前所处的位置是：〖首页〗→【文章页】本站共有16个图文教程栏目,请用心拜读!

本站提供经典的Excel公式函数实例,Word排版技巧,PPT教程;同时更兼有Flash,PowerPoint,数据库等技术文章。

　　①第一种代码

　　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