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

دخول مجالي لمدة 7 ايام 3 اختبارات كاملة https://www.pm-exam-simulator.com/pmp-exam-simulator/free-pmp-exam-simulator?fbclid=IwAR2KyfsufKqqLSa2NWL1-zZ-mMVohQYnG1uyO7PyuWiMFnVaMdMEfjcaBIs 1600 سؤال مجالي https://pmstudycircle.com/pmp-questions/?fbclid=IwAR0iS-YQJ7UXeD6mU2tTtD4iID8xTjWD7Vz-YHozMr656BjDqUP0owxsn-g

اذا كان الاوفيس 2007 ـ فاحيانا يكون حل المشكلة فى تحميل نسخة الاصلاح رقم 1 Microsoft office Service Pack 1 و بالتالي قد ينطق ذلك على الاصدارات التالية

تم فصل الحل فى رد منفصل ، ليتم تفعيل خيار تمت الاجابة : الاجابة : 1- تختار كل المحتوي ctr+a 2- تضغط ctr+shift+F9 فتبقي جميع النصوص دون الروابط ، وكانك عملت لصق قيم Paste Value فى الاكسيل و بالطبع يمكن اختيار منطقة محددة بدلا من كل الملف

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

السلام عليكم الأمر معقد بعض الشيء عما يبدو به فهو حقل خاص يمكن لبعض الرتب تعديله و في نفس الوقت لا تظهر إلا بعد تجاوز عدد معين من المشاركات . تم إضافته لفترة و الغي في فترة أخري. منعا لللبس تم مؤقتا اخفاؤه لحين دراسة طريقة استخدامه فهل يظهر لكم الان؟

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

أتصور أن المشكلة تكمن إما فى أن الاوفيس فى حاجة إلى تحديث رجع آخر التحديثات Office Updates او الكيبورد نفسها أو الاضافات الخاصة بالاوفيس Add-ins أو أن هناك مشكلة فى الريجسيتي ، و يمكنك مراجعة ما ورد فى الموضوع التالي على موقع مايكروسوفت https://technet.microsoft.com/library/dn789213(v=office.14).aspx و قد ورد فى نفس الموضوع بديل تغيير الطابعة الاضافية و قد ورد فى الموضوع ثمانية طرق محتملة لعلاج مشاكل الوورد الغريبة عن طريق التجربة و المحاولة و طبعا من الصعب الحكم اي من هذه الاحتمالات قد يفيد و لو مكانك سابدأ بالاسهل و هو الاحتمال رقم 8 الخاص بتغيير الطابعة الافتراضية او حتى اعادة تحميل المحرك الخاص بها فاحيانا يؤثر ذلك على ما يتعدى الطباعة ، ثم قد اجرب تغيير الكيبورد و تحديثات الاوفيس ثم ايقاف الاضافات المحملة حاليا Add-ins و ا و قد يكون هناك حل غير فني غير منطقي و لكنه مرجح قبل كل هذا هو اعادة تحميل الاوفيس 😃 و كنت ساترك موضوع تعديل الريجيستري للنهاية و فى الكثير من المواقف قد ينصح الدعم الفني بفتح الورد او اي تطبيق به مشكلة فى حالة safe mode فاذا لم تظهر المشكلة قد يكون السبب فى الاضافات و يتم ذلك عن طريق ضغط علامة ويندور مع R و كتابة winword /safe

تقف بالماوس بعد العلامة السوداء مباشرة ثم تتحرك بالماوس يسارً فى اتجاه السواد فتفاجأ بتغير السواد الي اللون الرصاصي مع التعجب الشديد ! ثم تضغط CTR+Shift+S لتستدعي أمر Apply Styles و تضغط Reapply فتحل المشكلة فى كامل ترقيم الملف !!! و نقول الحمد لله 😄 المصدر

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

السلام عليكم الرتبة ، او الدرجة كما تم تعديله حاليا يمكن لكافة الاعضاء رؤيتها و الامر يختلف هل هناك رتبة مسجلة للمستخدم الجاري تصفح صفحته أم أنها خالية دون قيمة مسجلة ، ففي جالة عدم وجود قيمة مسجلة بها لا تظهر و هذه الخاصية مجرد نص فقط لا ترتبط بأية صلاحيات او خصائص اضافية ، و صراحة لم يتم استخدامها من فترة طويلة و قد يكون من المناسب اعادة دراستها و تعديل طريقة استخدامها او ايقاف الخاصية تجنبا لاي لبس. و قد يكون بها مشكلة حاليا ، و سيتم دراسة و تعديل الامر باذن الله. من ناحية أخرى خاصية تعديل الدرجة هي خاصية إدارية ، و بالتالي ليست متاحة لكافة الاعضاء ، و الخاصية متاح تعديلها فقط لمجموعات مثل فريق الموقع عدد اخر محدود من المجموعات ، و تعديلها ليس متاح للاعضاء او الاعضاء الجدد

الف مبروك 😃 و الي الامام دائما ياذن الله

جميل جدا فالحل بدون كود أفضل عندما يكون متاحا و احب ان نستمر فى مناقشة حل التنسيق الشرطي، هل يمكن ايضا من خلاله تجديد الخلايا الخضراء ( اي التى بها تكرار رأسي و افقي فى نفس الوقت)

جرب الكود التالي ، اعتقد انه يمكن اختصاره بعض الشيء ، و لكن اتصور انه يؤدي المطلوب اولا ظلل الخلايا المطلوب تحليلها ثم شغل الكود و قم باختباره ملاحظة بعد النشر : وضعت الوان مختلفة حيث لم انتبه للون الاصفر و ووضعت بدلا منه اخضر ، يمكنك تعديله كما تشاء علما بان كود اللون الاصفر 65535 Sub Color_Dubplicatesl() ' color duplicates hzl adn vl as requested by youssef Atta on 14 june Dim myrow, mycol As Integer mycol = Selection.Columns.Count myrow = Selection.Rows.Count Selection.Interior.ColorIndex = xlNone '================= ' Hzl Dubplicate For i = 0 To myrow - 1 For j = 0 To mycol - 1 If Not IsNull(ActiveCell.Offset(i, j).Value) And ActiveCell.Offset(i, j).Value <> "" Then If IsNumeric(ActiveCell.Offset(i, j).Value) Then For k = j + 1 To mycol - 1 ' compare this col If ActiveCell.Offset(i, j).Value = ActiveCell.Offset(i, k).Value Then ActiveCell.Offset(i, j).Cells.Interior.Color = 255 ' red ActiveCell.Offset(i, k).Cells.Interior.Color = 255 ' red Exit For End If Next k ' compare this col End If ' if numeric End If ' not if null Next j Next i '============== ' Vl Duplicates '================= For i = 0 To mycol - 1 For j = 0 To myrow - 1 If Not IsNull(ActiveCell.Offset(j, i).Value) And ActiveCell.Offset(j, i).Value <> "" Then If IsNumeric(ActiveCell.Offset(j, i).Value) Then For k = j + 1 To myrow - 1 ' compare this col If ActiveCell.Offset(j, i).Value = ActiveCell.Offset(k, i).Value Then If ActiveCell.Offset(j, i).Cells.Interior.Color = 255 Then ActiveCell.Offset(j, i).Cells.Interior.Color = 5287936 ' green Else ActiveCell.Offset(j, i).Cells.Interior.Color = 15773696 ' cyan End If If ActiveCell.Offset(k, i).Cells.Interior.Color = 255 Then ActiveCell.Offset(k, i).Cells.Interior.Color = 5287936 ' green Else ActiveCell.Offset(k, i).Cells.Interior.Color = 15773696 ' cyan End If Exit For End If Next k ' compare this col End If ' if numeric End If ' not if null Next j Next i End Sub ساقية.xls

و ماذا اذا حدث تكرار رأسيا و افقيا لنفس الرقم ، افترض ان الشرط الثاني سيجب الاول اي ستكون الخلية رزفاء ، هل هذا صحيح؟

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

ملخص عن كتاب: الجدول في إعراب القرآن

السلام عليكم الرتبة تتغير مع الترقية في درجة العضوية. ولا تضاف أو تعدل من قبل العضو يرجى مراجعة آلية الترقيات في المنتدى المفتوح للتعرف على الدرجات

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

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