求优化！将文章中第二次以后出现的字，随机换一种指定字体

duquancai

liuhong2087 发表于 2019-5-18 11:23
可能对于大佬来说，这个简单的代码不值一提，但对新手来说，一个指点，都够学习好几天了，再次摩拜

用正则 写一个：

1. Sub main()
   
2.     Dim d As Object, re As Object, q As Range, k$, mh As Object, i&, t#
   
3.     Set re = CreateObject("vbscript.regexp")
   
4.     re.Global = True: re.Pattern = "[一-﨩]"
   
5.     Set d = CreateObject("Scripting.Dictionary")
   
6.     Application.ScreenUpdating = False
   
7.     With ActiveDocument
   
8.         Set q = IIf(Selection.Type = wdSelectionIP, .Content, Selection.Range)
   
9.         If q = .Content Then
   
10.             k = MsgBox("要进行全文处理吗？", vbYesNoCancel + vbQuestion, "全文处理判断")
    
11.             If k <> vbYes Then Exit Sub
    
12.         End If
    
13.         t = Timer
    
14.         For Each mh In re.Execute(q.Text)
    
15.             i = mh.FirstIndex
    
16.             With .Range(i, i + 1)
    
17.                 If d.Exists(.Text) Then .Font.ColorIndex = 6
    
18.                 d(.Text) = vbNullString
    
19.             End With
    
20.         Next
    
21.     End With
    
22.     Application.ScreenUpdating = True
    
23.     MsgBox Timer - t
    
24. End Sub

复制代码

liuhong2087

duquancai 发表于 2019-5-18 12:34
用正则 写一个：

虽然看不太懂，但还是觉得很厉害

413191246se

楼主，“膜拜”才对，非“摩拜”。——虽然我也和 楼主 一样看不懂，但也觉得 黄老师 和 杜老师 都很厉害。但是，代码中似乎没有字体的设置，而是颜色的设置，这与主题不符啊！（当然代码我也没有测试。）

liuhong2087

413191246se 发表于 2019-5-19 00:27
楼主，“膜拜”才对，非“摩拜”。——虽然我也和 楼主 一样看不懂，但也觉得 黄老师 和 杜老师 都很厉害。 ...

我也发现这个问题了，膜拜才对
至于字体设置的问题，颜色都能变了，变字体也就根据自己需要稍稍修改就可以了。不必太过执着

ming0018

杜老师的代码在有表格，分节符，分页符等情况下，定位会不准。纯文本没毛病。

liuhong2087

ming0018 发表于 2019-5-20 09:16
杜老师的代码在有表格，分节符，分页符等情况下，定位会不准。纯文本没毛病。

是存在定位不准的情况，但那都不重要，重要的是思路^_^