请教查找并显示重复字。谢谢！

kqbt

tan_mw 发表于 2011-10-14 11:21
无论上下联，相同字a的用一种颜色显示（如红色），相同字b的用另一颜色显示（如绿色），相同字c的用其他颜 ...

请测试如下代码：

1. 
   
2. Sub FinReP()
   
3.   Dim iRng As Range, jRng As Range
   
4.   Dim i As Integer, j As Integer, o As Integer
   
5.   Set iRng = ActiveDocument.Content
   
6.   With iRng.Find
   
7.     .ClearFormatting
   
8.     .Replacement.ClearFormatting
   
9.     Do While .Execute(findtext:="<[!^13]@^13<[!^13]@^13", MatchWildcards:=True)
   
10.       Set jRng = iRng.Duplicate
    
11.       i = 1
    
12.       For j = 0 To Len(iRng) - 1
    
13.         Set jRng = Range(iRng.Start + j, iRng.Start + j + 1)
    
14.         If jRng Like "[一-﨩]" And jRng.Font.Color = wdColorAutomatic Then
    
15.           Set fRng = Range(jRng.End, iRng.End)
    
16.           o = 0
    
17.           Do While fRng.Find.Execute(findtext:=jRng, MatchWildcards:=False)
    
18.             i = i + 1
    
19.             jRng.Font.ColorIndex = i - o
    
20.             fRng.Font.ColorIndex = i - o
    
21.             fRng.SetRange fRng.End, iRng.End
    
22.             o = o + 1
    
23.           Loop
    
24.         End If
    
25.       Next
    
26.       iRng.SetRange iRng.End, ActiveDocument.Content.End
    
27.     Loop
    
28.   End With
    
29. End Sub

复制代码

tan_mw

谢谢，我先试一下。不懂的再请教您。

tan_mw

kqbt 发表于 2011-10-14 12:23
请测试如下代码：

老师您好，代码没测试成功，不知是否操作不当，做了个录像想让您瞧瞧，却传不上论坛，能否给个邮箱，发您看看。

kqbt

474758882@qq.com

tan_mw

kqbt 发表于 2011-10-14 15:19

kqbt老师：开始没测试成功，但现在测试成功了，也许是格式出错。万分感谢！