تحديد كلمات مميزة بخاصية (تمييز النص)

[مصطفى شاهين]

السلام عليكم ورحمة الله وبركاته،،،

هل يوجد طريقة لتحديد كلمات ملونة عن طريقة خاصية (لون تمييز النص)؟ لا أقصد تحديد كامل النصوص مرة واحدة، هذه الطريقة أعرفها، ما أريده اللون الأزرق لوحده، الأصفر لوحده وهكذا (مرفق مثال).

دمتم بخير

example.rar

[شحادة بشير]

وعليكم السلام ورحمة الله وبركاته

لا يمكن تنفيذ العملية إلا من خلال ماكرو، تفضل هذا مثال لتحديد الكلمات المميزة باللون الأصفر:

Sub Highlight()
Dim r As Range
Set r = ActiveDocument.Range
With r.Find
     .Highlight = True
     Do While .Execute(FindText:="", Forward:=True) = True
        If r.HighlightColorIndex = wdYellow Then
           r.Editors.Add wdEditorEveryone
       End If
     Loop
     ActiveDocument.SelectAllEditableRanges wdEditorEveryone
     ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
End With
End Sub

 

وهذا مثال لتحديد الكلمات المميزة باللون الأحمر:

Sub Highlight()
Dim r As Range
Set r = ActiveDocument.Range
With r.Find
     .Highlight = True
     Do While .Execute(FindText:="", Forward:=True) = True
        If r.HighlightColorIndex = wdRed Then
           r.Editors.Add wdEditorEveryone
       End If
     Loop
     ActiveDocument.SelectAllEditableRanges wdEditorEveryone
     ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
End With
End Sub

 

تغيير اللون يتم من خلال هذا السطر بعد عبارة r.HighlightColorIndex إلى اللون الذي تريده:

If r.HighlightColorIndex = wdRed Then

 

أسأل الله تعالى لك التوفيق أخي الحبيب مصطفى

🙂

[مصطفى شاهين]

5 دقائق مضت, شحادة بشير said:

أسأل الله تعالى لك التوفيق أخي الحبيب مصطفى

 

الله يبارك فيك عزيزي شحادة، حقيقة إني أغبطك، وأشكر لكم سعة صدركم، تعطينا أكثر ما نطلب

أدام الله فضلكم

دمتم بخير