اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by تومي محمد,

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

  • 2 weeks later...
  • أفضل إجابة

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

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

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

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

 

والسلام

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

23 ساعات مضت, تومي محمد said:

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

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

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

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

 

والسلام

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

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

منذ ساعه, تومي محمد said:

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

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

والسلام

 

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

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

word 2013

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

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

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

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

 

 

والسلام

33A.jpg

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

23 ساعات مضت, تومي محمد said:

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

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

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

 

 

والسلام

33A.jpg

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

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

في ٩‏/١١‏/٢٠١٧ at 16:12, تومي محمد said:

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

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

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

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

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

 

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

 

 

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

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

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

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

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

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

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

  • 1 month later...

السلام عليكم

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

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

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

CTR+H

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

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

 

\(*\)

ثم اضغط على 

More

SNAG-0017.jpg.fa21b1004e3f99ec28a484fcf6c87566.jpg

 

و عد ذلك اختار

Wild Card

او احرف البدل 

ثم اختار

Find in All Document

او 

Find within selection

SNAG-0019.jpg.0e97d6fe943a92b45436be29fa5b8896.jpg

 

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

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

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

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

(\[)(*)(\])

 

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

السلام عليكم

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

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

 

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

مثلا هذا الكود سيجعل كل ما بين الاقواس 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

 

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

  • 1 year later...
  • 3 weeks later...

 

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

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

 

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

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.

×
×
  • اضف...

Important Information