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

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

أحيانا تحتاج إلى البحث عن الكلمات أو الجمل المكررة، لأن التكرار قد يكون خطأ، وهذا الماكرو يقوم بتحديد الكلمات أو الجمل المكررة بشكل متتالي وتمييزها باللون الأخضر:

Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Highlight = True
    Options.DefaultHighlightColorIndex = wdBrightGreen
    With Selection.Find
        .Text = "(<* ){2}"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Beep
End Sub

[شحادة بشير]

جزاكم الله خيراً أخي الحبيب أبو عاصم.

الكود يضع احتمالاً واحداً وهو أن يكون بعد الكلمة مسافة، ولكن ماذا لو كان بعد الكلمة الثانية علامة ترقيم أو شرطة أو أي شيء غير المسافة، مثلاُ:

الفقه لغة لغة: الفهم.

؟

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

بارك الله فيك أستاذ شحادة..

فعلا الماكرو يعتبر المسافة، ولا بد أن يكون هناك تطابق بين الكلمتين أو الجملتين في علامات الترقيم كذلك.

لأن احتمال الخطأ الأغلب في هذه الصورة، أما إذا زادت علامة ترقيم في إحدى الكلمتين أو الجملتين، فالغالب أن النص صحيح.

مع مراعاة أن هذه الخاصية لاكتشاف ما إذا كان المدخل أعاد كلمة أو جملة دون قصد.

وفي كل الأحوال المقصود من عرض هذا التكرار إعادة النظر فيه، لأنه قد يكون صوابا، وقد يكون خطأ.

تحياتي لشخصكم الكريم، مع تقديري لمجهودكم الواضح

[antoninomubarik]

جزاكم الله خيراً أخي الحبيب أبو عاصم.

Speed Test

تم تعديل أبريل 24, 2023 بواسطه antoninomubarik

[محمود ابوالخير]

جزاكم الله خيرا على مجهودكم الكريم

[تومي محمد]

احسنت

[VictoriaDickinson]

جزاكم الله خيرا على مجهودكم الكريم

Speed Test

تم تعديل نوفمبر 3, 2023 بواسطه VictoriaDickinson