اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

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

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

 

رابط هذا التعليق
شارك

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

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

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

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

أو : أَيْضًا 

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

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

 

' استبدال مجموعة كلمة متفرقة بكلمة واحدة
'
'
    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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

 

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك

  • 1 month later...
  • 2 weeks later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information