هل يوجد "معامل أو" ضمن "أحرف البدل" ؟

[مدحت هنداوي]

السلام عليكم .
أحتاج إلى مساعدة فنية .
أريد أن أبحث في الوورد عن كلمة « أيضا » ..
إن وردت بغير تنوين النصب الذي قبل الألف الأخيرة .

لكن الكلمة قد تأتي في عدة صور :
- فقد تأتي بلا أي تشكيل تماماً
- وقد تأتي بتشكيل الألف الأولى وحدها
- وقد تأتي بتشكيل الياء وحدها
- وقد تأتي بتشكيل الألف والياء معاً

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

حاولت استعمال "أحرف البدل" ولم أهتدِ إلى الحل .
كأن الأمر -والله أعلم- يحتاج إلى "معامل أو" ولا أجده ضمن قوائم أحرف البدل الشهيرة .

فأرجو المساعدة ممن يستطيع وأجره على الله والشكر له مقدماً .

 

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

استخدم هذا الماكرو، لاستبدال مجموعة كلمات متفرقة متباعدة بكلمة واحدة، مع مراعاة التشكيل:

بعد تشغيل الماكرو:

- ضع في خانة البحث :  أَيْضا ، أيْضا ، أيضًا ، أيضا

وفي خانة الاستبدال : أيضًا

أو : أَيْضًا 

أو حسب ما تريد من ضبط، مع مراعاة المسافات

ويمكن أيضا أن تضع كلمات مختلفة متباعدة في خانة البحث، لتستبدلها بكلمة واحدة.

 

' استبدال مجموعة كلمة متفرقة بكلمة واحدة
'
'
    Dim xFind As String
    Dim xReplace As String
    Dim xFindArr, xReplaceArr
    Dim i As Long
    Application.ScreenUpdating = False
    xFind = InputBox("أدخل هنا مجموعةالكلمات التي تريد استبدالها، مفصولة بفاصلة: ", "الكلمات المطلوب استبدالها")
    xReplace = InputBox(":أدخل الكلمة التي تريد استبدالها مكان الكلمات السابقة ", "الكلمة الجديدة")
    xFindArr = Split(xFind, "،")

    For i = 0 To UBound(xFindArr)
        
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = xFindArr(i)
            .Replacement.Text = xReplace
            .Format = False
            .MatchWholeWord = False
        End With
     Selection.Find.ClearFormatting       ' لو أردت حذف التمييز، فاحذف هذا السطر، والثلاثة التالية له
     Selection.Find.Replacement.ClearFormatting
     Selection.Find.Replacement.Highlight = True
     Options.DefaultHighlightColorIndex = wdBrightGreen
       Selection.Find.Execute Replace:=wdReplaceAll
    
    Next
    Application.ScreenUpdating = True
    Beep
    
End Sub

[مدحت هنداوي]

الله يكرمك أستاذنا !

جزاكم الله خيراً كثيراً .

فإن كان لدينا قائمة فيها قرابة ألف كلمة مثل "أيضاً" : "عمليا" .. "سياسيا" .. "اقتصاديا" ... إلخ ..

فهل من مساعدة نفع الله بكم بحيث لا نضطر إلى إجراء ألف عملية بحث لنستوفي القائمة ؟

 

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

لو عندك أي ملف مشكول فيه مثل هذه الكلمات، افعل الآتي:

1- ابحث عن أي كلمة آخرها ألف منوَّن: <[! ]@(ًا)> وفي خانة الاستبدال اختر (تمييز).

2- ابحث عن أي كلمة آخرها ألف قبله شدة وتنوين: <[! ]@(ًّا)> وفي خانة الاستبدال اختر (تمييز).

3- انسخ كل الكلمات المميزة (المنونة) إلى ملف آخر عن طريق البحث عن التمييز – مستند رئيسي.

4- افتح مستندا جديدا، وألصق فيه كل هذه الكلمات المميزة، واحفظ الملف بأي اسم، وليكن مثلا (كلمات منونة)

5- بهذا أصبح لديك قائمة بالكلمات التي آخرها ألف منوَّن.

6- افتح الملف المراد تشكيله، ثم شغِّل ماكرو التشكيل الآلي (أرسلته لك من قبل)

7- افتح من خلال ماكرو التشكيل ملف الكلمات المنونة، وسيقوم ماكرو التشكيل بتشكيل كل هذه الكلمات المنونة في الملف.

* وبهذا يصبح عندك قاعدة بيانات من الكلمات المنونة قابلة للزيادة.

 

[مدحت هنداوي]

جزاكم الله خيراً ونفع بكم .

 

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

أكرمكم الله

[VictoriaDickinson]

الله يكرمك أستاذنا !

[تومي محمد]

الف شكر