البحث عن الكلمات أو الجمل غير السوداء:

[أبو عاصم المصري]

إذا أردت أن تبحث عن كلمة أو جملة لونها غير أسود، أو غير تلقائي، فهذا الماكرو سيفيدك إن شاء الله:

'
' البحث عن نص غير تلقائي (أسود)
'
'
 Dim OutPut As Integer
 With Selection.Find
          .Text = InputBox(prompt:=" : أدخل كلمة (جملة) البحث ", _
          Title:="البحث عن الكلمات أو الجمل غير السوداء")
            Do While .Execute
            With Selection.Font
                If (.Color <> wdColorAutomatic) And _
                  (.Color <> wdColorBlack) Then
               
   If MsgBox("البحث عن التالي", vbQuestion + vbYesNo) <> vbYes Then
   Exit Sub
   End If
   End If
   End With
   Loop
   End With
End Sub