基于VBA的作者查重代码

Sub Macro1()
'
'


 MyText1 = "Qin, SP; Qin, Shuping; Hu, CS; Hu, Chunsheng; Oenema, O; Oenema, Oene"   '这里用来替换作者
 MyArr1 = Split(MyText1, "; ")

 
 
 lenth = UBound(MyArr1)
     Selection.WholeStory
    Options.DefaultHighlightColorIndex = wdNoHighlight
    Selection.Range.HighlightColorIndex = wdNoHighlight
    
 Do While lenth >= 0
    w1 = MyArr1(lenth)
    
    lenth = lenth - 1
     Selection.Find.ClearFormatting
    With Selection.Find
    .Text = w1
    .Replacement.Text = ""
    .Forward = False
    .Wrap = wdFindContinue
    End With
    
    Do While Selection.Find.Execute
        Selection.Range.HighlightColorIndex = wdRed
    Loop