word 可不可以做到提取指定颜色的文字

jamieelmo

如图，想提取word中所有蓝色的英文字，有没有做到

tennicse

Sub 宏1()
'
' 宏1 宏
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = 9580590
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Do
        Selection.Find.Execute
        Selection.Range.HighlightColorIndex = wdYellow
    Loop Until Selection.Find.Found = False
    End Sub



但是会卡死在 “ carmen.mclean@va.gov” 这个位置，不知道为什么.....................

duquancai

1. Sub shishi()
   
2.     Dim temp$, info$, n%
   
3.     With ActiveDocument.Content.Find
   
4.         .Font.Color = RGB(46, 48, 146)
   
5.         Do While .Execute
   
6.             n = n + 1
   
7.             With .Parent
   
8.                 temp = .Text
   
9.                 If Right(temp, 1) <> Chr(13) Then temp = temp & Chr(13)
   
10.                 If InStr(info, vbTab & temp) > 0 Then temp = "*" & temp    '星号代表找到的重复项目
    
11.                 info = info & n & vbTab & temp
    
12.                 .Collapse wdCollapseEnd
    
13.             End With
    
14.         Loop
    
15.     End With
    
16.     info = "以下共找到" & n & "条：" & Chr(13) & info
    
17.     Documents.Add.Content.Text = info
    
18. End Sub

复制代码

skh201101

duquancai 发表于 2016-7-21 23:52

请问一下如果想提取多种颜色的字体该如何修改代码？

13907933959

skh201101 发表于 2016-12-20 14:21
请问一下如果想提取多种颜色的字体该如何修改代码？

网友好！
想提取多种颜色的字体，您这个表述有点模糊，如把平时常用的每一种颜色都列出来，就有上百种，您要具体说清楚是那几种颜色的字体，还是所有颜色的字体，这样才有人帮您！

永乐大典

学习了，谢谢
感觉word-VBA和EXCEL-vba写法不太一样