منصور القباطي قام بنشر أكتوبر 24, 2017 مشاركة قام بنشر أكتوبر 24, 2017 سؤال السلام عليكم كيف أنشئ ماكرو في الوورد يقوم بتحديد مابين القوسين وإن اختلفت عدد الكلمات كالآيات القرآنية ثم نسخ لما بينهما . رابط هذا التعليق شارك More sharing options...
تومي محمد قام بنشر أكتوبر 26, 2017 مشاركة قام بنشر أكتوبر 26, 2017 تريد تحديد مابين قوسين لتغيير لون الخط مثلا ام ماذا والسلام عليكم 1 رابط هذا التعليق شارك More sharing options...
منصور القباطي قام بنشر نوفمبر 9, 2017 الكاتب مشاركة قام بنشر نوفمبر 9, 2017 في ٢٦/١٠/٢٠١٧ at 17:40, تومي محمد said: تريد تحديد مابين قوسين لتغيير لون الخط مثلا ام ماذا والسلام عليكم لفهرسة آيات قرآنية رابط هذا التعليق شارك More sharing options...
أفضل إجابة تومي محمد قام بنشر نوفمبر 9, 2017 أفضل إجابة مشاركة قام بنشر نوفمبر 9, 2017 اكتب مايلي في خانة البحث من مربع البحث والاستبدال [(][أ-ي]{1,}[)] هذا سيحدد لك جميع الكلمات التي ما بين قوسين في خانة الاستبدال اكتب ماتريد فعله لهذه الكلمات التي ما بين قوسين والسلام 1 رابط هذا التعليق شارك More sharing options...
DAISKE قام بنشر نوفمبر 10, 2017 مشاركة قام بنشر نوفمبر 10, 2017 23 ساعات مضت, تومي محمد said: اكتب مايلي في خانة البحث من مربع البحث والاستبدال [(][أ-ي]{1,}[)] هذا سيحدد لك جميع الكلمات التي ما بين قوسين في خانة الاستبدال اكتب ماتريد فعله لهذه الكلمات التي ما بين قوسين والسلام للاسف لم تضبط معي لا يستبدل اي شي رابط هذا التعليق شارك More sharing options...
تومي محمد قام بنشر نوفمبر 10, 2017 مشاركة قام بنشر نوفمبر 10, 2017 اكتبها لا تقم بنسخها ثم لصقها لا تنسى القيام بوضع صح امام (باستعمال احرف البدل) والسلام رابط هذا التعليق شارك More sharing options...
DAISKE قام بنشر نوفمبر 10, 2017 مشاركة قام بنشر نوفمبر 10, 2017 منذ ساعه, تومي محمد said: اكتبها لا تقم بنسخها ثم لصقها لا تنسى القيام بوضع صح امام (باستعمال احرف البدل) والسلام يعطيني رسالة: يتضمن نص البحث تعبيرا غير صحيح لنمط التطابق طبعا كتبتها او نسختها مع الضغط على استخدام أحرف البدل word 2013 رابط هذا التعليق شارك More sharing options...
منصور القباطي قام بنشر نوفمبر 11, 2017 الكاتب مشاركة قام بنشر نوفمبر 11, 2017 شكرا أخي على الإجابة وفقك الله تعالى رابط هذا التعليق شارك More sharing options...
DAISKE قام بنشر نوفمبر 11, 2017 مشاركة قام بنشر نوفمبر 11, 2017 10 ساعات مضت, منصور القباطي said: شكرا أخي على الإجابة وفقك الله تعالى ضبطت معك؟ رابط هذا التعليق شارك More sharing options...
تومي محمد قام بنشر نوفمبر 13, 2017 مشاركة قام بنشر نوفمبر 13, 2017 انظر اخي يجب ان تقوم بكتابة نفس ما عندك في جهازك لاحظ الصورة حتى ينضبط معك البحث ان كانت فاصلة فاكتب في البحث فاصلة وان كانت فاصلة منقوطة اكتب فاصلة منقوطة في خانة البحث والسلام رابط هذا التعليق شارك More sharing options...
DAISKE قام بنشر نوفمبر 14, 2017 مشاركة قام بنشر نوفمبر 14, 2017 23 ساعات مضت, تومي محمد said: انظر اخي يجب ان تقوم بكتابة نفس ما عندك في جهازك لاحظ الصورة حتى ينضبط معك البحث ان كانت فاصلة فاكتب في البحث فاصلة وان كانت فاصلة منقوطة اكتب فاصلة منقوطة في خانة البحث والسلام شكرا لك ضبطت معي الان فعلا منقوطة 1 رابط هذا التعليق شارك More sharing options...
جمال جبريل قام بنشر نوفمبر 19, 2017 مشاركة قام بنشر نوفمبر 19, 2017 في ٩/١١/٢٠١٧ at 16:12, تومي محمد said: [(][أ-ي]{1,}[)] حاولتي مرارا وتكرارا ان اكتبه بالطريقة الصحيحة وفشلت ، ممكن تكتبه في ملف تكس او وورد او اعمله ماكروا ليستفاد الجميع رابط هذا التعليق شارك More sharing options...
تومي محمد قام بنشر نوفمبر 19, 2017 مشاركة قام بنشر نوفمبر 19, 2017 1 ـــ هل مكتوب عندك فاصلة ام فاصلة منقوطة 2 ـــ اول شيء غير الى اللغة العربية ثم اكتب الاقواس والحروف بالترتيب وهي كلها موجودة عندنا في لوحة المفاتيح والسلام عليكم رابط هذا التعليق شارك More sharing options...
جمال جبريل قام بنشر نوفمبر 23, 2017 مشاركة قام بنشر نوفمبر 23, 2017 (معدل) الفاصلة تم تعديلها كما قلت اكتبها من يمين الي اليسار ام من اليسار الي اليمين تم تعديل نوفمبر 23, 2017 بواسطه جمال الخطيب رابط هذا التعليق شارك More sharing options...
تومي محمد قام بنشر نوفمبر 25, 2017 مشاركة قام بنشر نوفمبر 25, 2017 ليست الفاصلةالعشرية بل فاصل القائمة ملاحظة لا تكتب ولا تقم باي تغيير هنا كما في الصورة اعلاه بل في الوورد في خانة البحث هنا تكتب الفاصلة كما هي مكتوبة عندك في الاعدادات (الصورة اعلاه ) والسلام عليكم رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر يناير 15, 2018 مشاركة قام بنشر يناير 15, 2018 السلام عليكم بعد اذن اخي تومي ، باستخدام الواجهة الانجليزية لاختبار ما بين القوسين () ، جرب التالي اختار مربع الاستبدال CTR+H اختار التاب الخاص ب Find و اكتب فى مكان البحث ما يلي \(*\) ثم اضغط على More و عد ذلك اختار Wild Card او احرف البدل ثم اختار Find in All Document او Find within selection و سيتم تحديد كا بين الاقواس هذا فى حال الاقواس العادية () اما الاقواس المسماة براكت [] فيتم عمل نفس الخطوات مع استخدام البحث عن (\[)(*)(\]) رابط هذا التعليق شارك More sharing options...
جمال جبريل قام بنشر يناير 16, 2018 مشاركة قام بنشر يناير 16, 2018 نحن نريد ما بين الاقواس ، يعني النصوص المكتوب فقط بدون الاقواس رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر يناير 16, 2018 مشاركة قام بنشر يناير 16, 2018 السلام عليكم من السهل استبدال تنسيق الاقواس نفسها بعد ذلك و هناك ايضا فكرة اعجبتني عن استبدال الاقواس بحرف مميز تجدها هنا و الحل الاخر هو اللجوء للكود و لكن ربما الامر لا يحتاج مثلا هذا الكود سيجعل كل ما بين الاقواس 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 1 رابط هذا التعليق شارك More sharing options...
Alaa Al-Mahayni قام بنشر مايو 17, 2019 مشاركة قام بنشر مايو 17, 2019 تنسيق ما بين قوسين 1 رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر يونيو 7, 2019 مشاركة قام بنشر يونيو 7, 2019 و هنا تعديل التنسيق فقط بجعل الحروف بين الأقواس مائلة تبعا لبعض متطليات كتابة الابحاث العلمية 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.