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

غابا يجتاج الباحث الي تعديل تنسيق ما ذكر بين الأقواس ليجعله بخط مائل و للتطبيق على كافة محتويات الملف دفعة واحدة و ليست المنطقة المختارة فقط Sub FormatBetBracketsWholeDoc() 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.Italic = True cRng.Collapse Word.WdCollapseDirection.wdCollapseEnd .Execute Loop End With End Sub و يمكن ايضا عمل ذلك بعدة طرق بديلة كما هو فى الموضوع الأصلي

و هنا تعديل التنسيق فقط بجعل الحروف بين الأقواس مائلة تبعا لبعض متطليات كتابة الابحاث العلمية 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

موضوع مخالف تم الاغلاق لا يسمح بفك جماية الملفات التى اضاف اصحابها لها حماية و فى نفس الوقت نشجع الجميع على نشر الملفات بدون جماية لتحقيق الاستفادة العامة

الحل الأول : الاول اختيار النص المطلوب تحديث الاشارات به ،و ليكن صفحة او فصل او فقرة او حتى المستند ككل من خلال Ctr+A و ان كان ذلك قد يكون اجراء بطيئ فى حال المستندات الكبيرة ، ثم اضغط F9 فيتم تحديث الحقول ( الاشارة ضمن سياق الكلام) فى النطاق المختار دفعة واحدة الحل الثاني : و هو هام جدا ايضا ، و هو التأكد من التحديث قبل الطباعة و هذا من خلال File Options Display Printing Options Update Fields before printing و هذا الخيار غير مفعل بصورة نمطية و يجب تفعيله بصورة يدوية

عند اضافة جدو ل أو رسم فى بحث علمي او مستند احترافي يتم استخدم الامر التالي references Insert Caption فيأخذ الجدول الترقيم الالي من ناحية و يتعرف المستند عليه ككائن مميز كجدول Table أو كرسم توضيحي (شكل) Figure و من ناحية اخرى نتمكن لاحقا من اعداد قائمة آلية بالجداول و الأشكل و ذلك من References insert Table or figure و عند الاشارة الى الجدول او الرسم التوضيحي ضمن سياق الكتابة نستخدم Cross Reference captions مثال : التحديث: بالنسبة لقائمة المراجع و الرسومات التوضيحية يمكن تحديثها بصورة آلية دفعة واحدة باختيار الحدول ثم Update Field Update Entire Table ولكن المشكلة تكمن فى تحديث الاشارات المرجعية ضمن سياق الكتابة اذا لا يمكن تحديثها كلها دفعة واحدة ، و يجب اختيارها واحدة واحدة ثم اختيار Update Field و هذا طبعا اجراء مرهق فى حالة المستندات الكبيرة التي تجوى الكثر من الاشارات جداول و رسومات او عناوين فرعية ايضا لذا هناك حلان كما سيلي فى الرد التالي على الموضع

كل عام و انتم بخير 😃

هذه بعض المواضيع السابقة فى هذا الشأن كودتفقيط وورد كيفية إضافة كود التفقيط المرفق ليصبح صالحاً للإستخدام في ملف وورد 2007 أرجو مساعدتي في انشاء كود رجو المساعدة عمل ماكروتفقيط هل يمكن عمل كودتفقيطفى الوورد كما فى الاكسيل تفقيطالارقام فى الوورد تفقيطسلس وسريع في وورد دالة التفقيط العربي الصحيحة https://www.officena.net/team/mas/tafkeet/

و الكود التالي يتخص فقط باستبدال النسب ، اي الارقام او العبارات التي تنتهي ب علامة % فيقوم باضافة افواس لها Sub AddParens2NumbersP() ' يختص باضافة اقواس للعبارات المنتهية بعلامة % If Len(Selection.Range) > 0 Then For i = 1 To Selection.Words.Count With Selection.Words(i) If Right(Trim(.Text), 1) = "%" Then Selection.Words(i - 1).Text = "(" & Selection.Words(i - 1) .Text = Trim(.Text) & ") " i = i + 1 End If End With Next i Else MsgBox "لم تقم باختيار نطاق التطبيق" End If End Sub

و قد اضفت التطوير التالي للكود ليتيح اضافة اقواس لكافة الارقام الموجودة فى المنطقة المختارة اختار المنطقة أولا يم شغل الكود فيتم اضافة اقواس لكاقة الارقام ضمن المنطقة المظللة (المختارة) Sub AddParens2Numbers() If Len(Selection.Range) > 0 Then For i = 1 To Selection.Words.Count With Selection.Words(i) If IsNumeric(.Text) Then .Text = "(" & Trim(.Text) & ") " i = i + 1 End If End With Next i Else MsgBox "لم تقم باختيار العبارات المطلوب التعديل عليها " End If End Sub

كل عام و انتم بخير جميعاً

السلام عليكم فى حال وجود ارقام او اشياء أخرى مطلوب اضافتها بين اقواس ، يمكن اختيارها و تشغيل هذا الماكرو هذا الماكرو يضيف اقواس لما تختار ايا كان المحتوى و هنا نختار الكلمة او الرقم واجدا واحدا ، و بالطبق يفضل عمل زر او انشاء اختصار لاستخدامه Sub AddParens() Selection.InsertBefore "(" Selection.InsertAfter ")" End Sub و بالطبع يمكن استدال نوع الاقواس و العلامات المطلوب اضافتها باي شيء اخر او تطويره قليلا ليتبين هل تم اختيار شيء فعلا ام لا Sub AddParens() If Len(Selection.Range) > 0 Then Selection.InsertBefore "(" Selection.InsertAfter ")" Else MsgBox "No text was selected!" End If End Sub المصدر

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

دون الدخول فى تفاصيل الملف حيث لم استطع تحميله ، جاولت تعديل الكود ببحسب ما فهمت ، انه يقوم بفلترة و بترحيل من مجال 1 الي مجال 2 بعد فك الحماية اذا لم تسر الامور كما تريد اقترح ارفاق ملف الاكسيل دون ضغط و ووضع شرح مبسط لما يفترض ان يقوم به الكود ليستطيع الاخوة التفاعل بسهولة Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect Dim Range0, Range1, Range2 As Range Set Range0 = Range("A1:gg20000") Set Range1 = Range("A1:B2") Set Range2 = Range("C1:D2") If MsgBox("هل تريد الترحيل حسب الشروط", vbYesNo, "تنبيه") = vbYes Then Range0.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range1, CopyToRange:=Range2 MsgBox "تم الترحيل بنجاح ", vbOKOnly, "تنبيه" End If Set Range0 = Nothing Set Range1 = Nothing Set Range2 = Nothing ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub

الملف الاخير به مشكلة في الضغط يمكتك رفع ملف الاكسيل مباشرة دون ضغط

السلام عليكم السبب الاساسي فى فصل قسمي الباوربوينت الي قسم للاسئلة و اخر للدروس و الشرح، كان بهدف تفعيل خيار (افضل اجابة و تمت الاجابة) فى قسم الاسئلة و كما تم مناقشته هنا : تمت الاجابة - و أفضل اجابة، فقد تم توفير الخاصية لكافة المنتديات ، و عليه قد لا يبقي للفصل الي قسمين داعي ، و ووجودهما معا قد يكون اسهل فى المتابعة ، لذا اطرح هذا الموضوع للحوار فى قسم الباوربينت قبل الشروع فى الدمج الفصل : أكثر تنظيما الدمج : أسهل فى المتابعة و البحث عن معلومة

يمكن ايضا الان لمجموعات الخبراء و العضوية الذهبية و الماسية اختيار افضل اجابة فى المواضيع السابقة برجاء التجربة و المساهمة فى تفغيل هذه الخاصية للتسهيل على أعضاء المنتدى

بعد الحوار السابق فى قسم الاكسيس و الاقتراح المقدم من الاخ أبو جودي فى قسم الاقتراحات و بعد دراسة الموضوع تم تحميل اضافة لتطبيق المنتدى تتيح ما يلي ا- يمكن لصاحب السؤال او فريق الموقع اختيار افضل اجابة عن طريق علامة (صح) اعلي يمين الرد و بالتالي سيظهر فى صفحة المنتدى الرئيسيه انه قد تمت الاجابة على السؤال

تم تحميل الإضافة برجاء التجربة 😆

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

هذه هي الاضافة التي اتحدث عنها من هــــــنا و كما يظهر من صفحتي الحوار حولها ، واجه البعض مشاكل بعد تحميلها ، و احتمال زيادة المشاكل مع التحديثات المتتالية اكبر لذا فانا دائما افضل الالتزام بالنسخة الرسمية من الشركة المنتدى ، و هي كما ذكرت تحدث دوريا باضافات و تحسينات مستمرة

Invision Community v4.4.3

حاليا ارد من الموبايل ليس أمامي التفاصيل . و لكنها أحدث نسخة ستجدها على موقع الشركة المنتجة. فالتحديث يتم بانتظام فور صدور النسخ. اعتقد ستكون 4.4.3 و التأكد لاحقا من الرقم ولكنها بالتأكيد احدث نسخة متاحة للتحميل

السلام عليكم هذا المنتدى من نوع Invision Community و هو يختلف عن VB Bulliten و لكن بالطبع هناك حلول اخرى مثل استخدام اضافات او التعديل البرمجي ، و كلاهما قد ينتج عنه مشاكل فنية مع التحديثات المتتالية لاصدارات المنتدى ، لذا فالسياسة العامة المتبعة هي محاولة الالتزام قدر المستطاع بالاصدار الرسمي للنسخة و التحديث الدوري لها ، و مع كل تحديث بالطبع يتم اضافة خيارات جديدة. و الاجابة هي نعم يمكن تجميل بعض الاضافات الغير رسمية التي تتيج هذه الخاصية دون تقسيم ، و لكن أي مشاكل فنية تترتب عليها مستقبلا تخرج عن اطار الدعم الفني للشركة المنتجة. لذا فانا اترك ذلك كاخر خيار متاح

للأسف حتى الان هذه الخاصية غير متاحة الياً غير فى حالة الاقسام من نوعية اسئلة واجوبة

تظهر بجانبها علامة (صح) كما فى هذا الموضوع فى قسم اسئلة الباوربوينت