إستبدال كل ما هو بين قوسين فى الوورد

[منصور القباطي]

سؤال السلام عليكم  كيف أنشئ ماكرو  في الوورد يقوم بتحديد مابين القوسين وإن اختلفت عدد الكلمات كالآيات القرآنية ثم نسخ لما بينهما .

[تومي محمد]

تريد تحديد مابين قوسين لتغيير لون الخط مثلا

ام ماذا

والسلام عليكم

[منصور القباطي]

  في 26‏/10‏/2017 at 14:40, تومي محمد said:

تريد تحديد مابين قوسين لتغيير لون الخط مثلا

ام ماذا

والسلام عليكم

Expand  

لفهرسة آيات قرآنية

[تومي محمد]

اكتب مايلي في خانة البحث من مربع البحث والاستبدال 

             [(][أ-ي]{1,}[)]

هذا سيحدد لك جميع الكلمات التي ما بين قوسين

في خانة الاستبدال اكتب ماتريد فعله لهذه الكلمات التي ما بين قوسين

 

والسلام

[DAISKE]

  في 9‏/11‏/2017 at 13:12, تومي محمد said:

اكتب مايلي في خانة البحث من مربع البحث والاستبدال 

             [(][أ-ي]{1,}[)]

هذا سيحدد لك جميع الكلمات التي ما بين قوسين

في خانة الاستبدال اكتب ماتريد فعله لهذه الكلمات التي ما بين قوسين

 

والسلام

Expand  

للاسف لم تضبط معي لا يستبدل اي شي

[تومي محمد]

اكتبها لا تقم بنسخها ثم لصقها

لا تنسى القيام بوضع صح امام (باستعمال احرف البدل)

والسلام

 

[DAISKE]

  في 10‏/11‏/2017 at 18:55, تومي محمد said:

اكتبها لا تقم بنسخها ثم لصقها

لا تنسى القيام بوضع صح امام (باستعمال احرف البدل)

والسلام

 

Expand  

يعطيني رسالة: يتضمن نص البحث تعبيرا غير صحيح لنمط التطابق

طبعا كتبتها او نسختها مع الضغط على استخدام أحرف البدل

word 2013

[منصور القباطي]

شكرا أخي على الإجابة وفقك الله تعالى 

[DAISKE]

  في 11‏/11‏/2017 at 04:49, منصور القباطي said:

شكرا أخي على الإجابة وفقك الله تعالى 

Expand  

ضبطت معك؟

[تومي محمد]

انظر اخي يجب ان تقوم بكتابة نفس ما عندك في جهازك

لاحظ الصورة حتى ينضبط معك البحث

ان كانت فاصلة فاكتب في البحث فاصلة وان كانت فاصلة منقوطة اكتب فاصلة منقوطة في خانة البحث

 

 

والسلام

[DAISKE]

  في 13‏/11‏/2017 at 18:41, تومي محمد said:

انظر اخي يجب ان تقوم بكتابة نفس ما عندك في جهازك

لاحظ الصورة حتى ينضبط معك البحث

ان كانت فاصلة فاكتب في البحث فاصلة وان كانت فاصلة منقوطة اكتب فاصلة منقوطة في خانة البحث

 

 

والسلام

Expand  

شكرا لك ضبطت معي الان فعلا منقوطة

[جمال جبريل]

  في 9‏/11‏/2017 at 13:12, تومي محمد said:

 [(][أ-ي]{1,}[)]

Expand  

حاولتي مرارا وتكرارا ان اكتبه بالطريقة الصحيحة وفشلت ، ممكن تكتبه في ملف تكس او وورد او اعمله ماكروا ليستفاد الجميع

[تومي محمد]

1 ـــ  هل مكتوب عندك فاصلة ام فاصلة منقوطة

2 ـــ    اول شيء غير الى اللغة العربية ثم اكتب  الاقواس والحروف بالترتيب وهي كلها موجودة عندنا في لوحة المفاتيح

 

والسلام  عليكم

 

 

[جمال جبريل]

الفاصلة تم تعديلها كما قلت

اكتبها من يمين الي اليسار ام من اليسار الي اليمين

 

تم تعديل نوفمبر 23, 2017 بواسطه جمال الخطيب

[تومي محمد]

ليست الفاصلةالعشرية

بل فاصل القائمة

ملاحظة لا تكتب ولا تقم باي تغيير هنا كما في الصورة اعلاه

بل في الوورد في خانة البحث هنا تكتب الفاصلة كما هي مكتوبة عندك في الاعدادات (الصورة اعلاه )

والسلام عليكم

[محمد طاهر عرفه]

السلام عليكم

بعد اذن اخي تومي ، 

باستخدام الواجهة الانجليزية لاختبار ما بين القوسين () ، جرب التالي

اختار مربع الاستبدال 

CTR+H

اختار التاب الخاص ب Find

و اكتب فى مكان البحث ما يلي

 

\(*\)

ثم اضغط على 

More

 

و عد ذلك اختار

Wild Card

او احرف البدل 

ثم اختار

Find in All Document

او 

Find within selection

 

و سيتم تحديد كا بين الاقواس

هذا فى حال الاقواس العادية  ()

اما الاقواس المسماة براكت []

فيتم عمل نفس الخطوات مع استخدام البحث عن

(\[)(*)(\])

 

[جمال جبريل]

نحن نريد ما بين الاقواس ، يعني النصوص المكتوب فقط بدون الاقواس

[محمد طاهر عرفه]

السلام عليكم

من السهل استبدال تنسيق الاقواس نفسها بعد ذلك

و هناك ايضا فكرة اعجبتني عن استبدال الاقواس بحرف مميز تجدها هنا

 

و الحل الاخر هو اللجوء للكود و لكن ربما الامر لا يحتاج

مثلا هذا الكود سيجعل كل ما بين الاقواس Bold ، و من دون الاقواس نفسها

Sub FormatBetBrackets()
    Dim cDoc As Word.Document
    Dim cRng As Word.Range
    
    Set cDoc = ActiveDocument
    Set cRng = cDoc.Content
    
    
    cRng.Find.ClearFormatting
    With cRng.Find
        .Forward = True
        .Text = "("
        .Wrap = wdFindStop
        .Execute
        Do While .Found
            cRng.Collapse Word.WdCollapseDirection.wdCollapseEnd
            cRng.MoveEndUntil Cset:=")", Count:=Word.wdForward
            cRng.FormattedText.Bold = True
            cRng.Collapse Word.WdCollapseDirection.wdCollapseEnd
            .Execute
        Loop
    End With
End Sub

 

و مثلما جعلنا الخط Bold

يمكن التحكم بباقي الخصائص مثلا نجعله ازرق و حجم الخط 12  هكذا

 

            cRng.FormattedText.Bold = True
            cRng.FormattedText.Font.ColorIndex = wdBlue
            cRng.FormattedText.Font.Size = 12

 

[Alaa Al-Mahayni]

تنسيق ما بين قوسين

 

[محمد طاهر عرفه]

 

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

Sub FormatBetBrackets()
'Set What is between Parenthesis Italic in a slected range
'لاستبدال تنسيق ما بين الأقواس و جعله مائل فى مجال مختار

    Dim cDoc As Word.Document
    Dim cRng As Word.Range
    
    Set cDoc = ActiveDocument
    Set cRng = Selection.Range
    
    
    cRng.Find.ClearFormatting
    With cRng.Find
        .Forward = True
        .Text = "("
        .Wrap = wdFindStop
        .Execute
        Do While .Found
            cRng.Collapse Word.WdCollapseDirection.wdCollapseEnd
            cRng.MoveEndUntil Cset:=")", Count:=Word.wdForward
            cRng.FormattedText.Italic = True
            cRng.Collapse Word.WdCollapseDirection.wdCollapseEnd
            .Execute
        Loop
    End With
End Sub