Oscar Sun

                  Sub 刪除重覆詞條()
Dim d1 As Document, d2 As Document, p As Paragraph
Set d1 = Documents(1) '刪據
Set d2 = Documents(2) '被刪
For Each p In d1.Paragraphs
    If d2.Range.Find.Execute(p.Range) = True Then
        d2.Range.Find.Execute p.Range, , , , , , , , , ""
    End If
Next p
End Sub