vba判断word文字颜色是否为蓝色
①第一种代码
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 05-20
- 【word】 如何删除Word空白页最后一页 04-22
- 【word】 Word页码怎么设置 04-15
- 【word】 word怎么自动生成目录步骤 03-31
- 【word】 Word文档删除线怎么加 02-06
- 【word】 Word文档里面的红色波浪线怎么去掉 02-06
- 【word】 Word文档怎么显示标尺 09-07
- 【word】 Word怎么把文字转换成表格 04-01
- 【word】 Word多张图片怎么对齐排版 04-01
- 【word】 Word怎么批量修改标题格式 03-19
本周热门
-
1
如何删除Word中"删不掉"的空白页 2016/10/29 -
2
编辑word时无法选中文字怎么办 2017/04/11
-
3
WORD文档怎么在字母的正上方加上符号 2016/07/30
-
4
WORD 自动编号到100 编号和文字之间出现了一个很大的空格怎么办 2016/11/27
-
5
怎么设置不同页眉?word页眉每页不同设置方法介绍 2013/09/16
-
6
word表格不能编辑的原因,怎么解决? 2016/07/11
-
7
word字体间距太大而且调整不了是什么原因? 2016/07/21
-
8
word左键无法选择文字怎么办? 2016/07/29
本月热门
-
1
如何删除Word中"删不掉"的空白页 2016/10/29
-
2
WORD 自动编号到100 编号和文字之间出现了一个很大的空格怎么办 2016/11/27
-
3
如何将word改为 utf-8编码? 2016/11/07
-
4
word字体间距太大而且调整不了是什么原因? 2016/07/21
-
5
word表格不能编辑的原因,怎么解决? 2016/07/11
-
6
WORD文档怎么在字母的正上方加上符号 2016/07/30
-
7
word左键无法选择文字怎么办? 2016/07/29
-
8
编辑word时无法选中文字怎么办 2017/04/11
-
9
Word中各种通配符^?.^#.^$.^&等等的使用 2013/06/01
-
10
word怎么打印小抄?word小抄排版缩印教程 2017/03/16