Oscar Sun

                  
Sub 找出易卦形造字並標紫紅色()
Dim d As Document, a, d1 As Document, x As String, a1
Set d = ActiveDocument
Set d1 = Documents("易八卦形造字")
x = Replace(d1.Range.Text, Chr(13), "")
For Each a In d.Characters
    If a <> Chr(13) Then
        If InStr(x, a) > 0 And a.HighlightColorIndex <> 5 Then '紫紅色
            a.Select
            Stop
        End If
    End If
Next
MsgBox "OK!", vbInformation
End Sub