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

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

تم الحذف

بارك الله لهما و بارك عليهما و جمع بينهما في خير الف مبروك

قسم الاقتراحات و الملاحظات http://www.officena.net/ib/index.php?showforum=159

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

اقتراح جيد سيتم اضافة القسم باذن الله

إنا لله و انا اليه راجعون اللهم أدخلها الفردوس الأعلي من الجنة

السلام عليكم أخوتي الكرام هذا استطلاع رأي بخصوص إدارة المشاريع المؤسسية ، ذو علاقة ببحث أقوم بها انا و صديقي د. عمرو مسلم https://www.surveymonkey.com/s/YVW25ND أرجو المشاركة فى الاستطلاع لمن هو مجال عمله ذو علاقة بهذا الاستطلاع ـ او دعوة من تعرفونه للمشاركة

اللهم رب الناس أذهب البأس اشفِ أنت الشافي لا شفاء إلا شفاؤك ، شفاء لا يغادر سقماً

نرحب بالأخ أبا عمر فى فريق الموقع مشرفا على قسم الأكسيس أهلا وسهلا

جزاكم الله خيرا على هذا الجهد المميز

يحتوى برنامج الفيزيو 2010 على خاصية اضافة الملاحظات و علامات المراجعة Mark up و لكن للاسف لا يحوي امكانيات متقدمة مثل برنامج الوورد للتحكم فى طباعتها و لكن يوجد حل بديل عن طريق الماكرو حيث يتم انشاء مربع نص و نسخ قائمة بالتعديلات اليه و ذلك بجوار الرسم المصدر http://support.microsoft.com/kb/898514/en-us و هذا هو الكود Public Sub GetComments() Dim pagMarkup As Visio.Page Dim pag As Visio.Page Dim shp As Visio.Shape Dim sText As String Dim iRow As Integer Set pag = Visio.ActivePage sText = "Reviewer" & vbTab & "Date" & vbTab & "Comment" If pag.PageSheet.SectionExists(Visio.visSectionAnnotation, Visio.visExistsAnywhere) Then For iRow = 0 To pag.PageSheet.RowCount(Visio.visSectionAnnotation) - 1 sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationReviewerID).ResultIU - 1, Visio.visReviewerInitials).ResultStr("") sText = sText & pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationMarkerIndex).ResultIU sText = sText & vbTab & Format(pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationDate).ResultIU, "ddddd") sText = sText & vbTab & pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationComment).ResultStr("") Next iRow End If For Each pagMarkup In pag.Document.Pages If pagMarkup.Type = visTypeMarkup Then If pagMarkup.OriginalPage = pag Then If pagMarkup.PageSheet.SectionExists(Visio.visSectionAnnotation, Visio.visExistsAnywhere) Then sText = sText & vbCrLf sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pagMarkup.ReviewerID - 1, Visio.visReviewerName).ResultStr("") For iRow = 0 To pagMarkup.PageSheet.RowCount(Visio.visSectionAnnotation) - 1 sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationReviewerID).ResultIU - 1, Visio.visReviewerInitials).ResultStr("") sText = sText & pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationMarkerIndex).ResultIU sText = sText & vbTab & Format(pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationDate).ResultIU, "ddddd") sText = sText & vbTab & pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationComment).ResultStr("") Next iRow End If End If End If Next pagMarkup Dim iAutoSize as Integer 'new iAutoSize = pag.AutoSize 'new pag.AutoSize = 0 'new Set shp = pag.DrawRectangle(-pag.PageSheet.Cells("PageWidth").ResultIU, 0, 0, pag.PageSheet.Cells("PageHeight").ResultIU) pag.AutoSize = iAutoSize 'new shp.AddSection visSectionUser 'new shp.AddNamedRow visSectionUser, "msvNoAutoSize", visTagDefault 'new shp.CellsU("User.msvNoAutoSize").FormulaU = 1 'new shp.Cells("Para.HorzAlign").Formula = "0" shp.Cells("VerticalAlign").Formula = "0" shp.Name = "Reviewers Comments" shp.Text = sText End Sub

لا اعتقد ان له علاقة اذا واجهتك مشكلة في جدول المحتويات ، جرب حفظ الملف بتنسيق اقدم اولا اذا لم يسبب لك ذلك مشكلة او الاستعانة باحد البرامج التي تنشيء طابعة من نوع pdf يتم طباعة الملف اليها و ليس حفظه مثل adope distiller pdfcreator adope proffesional pdf architect ,و هناك العديد من التطبيقات المجانية

سألني صديق هذا السؤال : كيف اجعل ملف الوورد 2010 يفتح فى حالة العرض النهائي ، و ذلك فى حالة تتبع التعديلات ؟ أي أنك عندما تتتبع التعديلات Track changes و تغلق الملف و تحفظه يفتح تلقائيا فى حالة Final show Markup و هو يريده فى حالة Final فقط الاجابة File Options Trust Center Trust Center Settings Privacy Options أزل الخيار التالي : "Make hidden markup visible when opening or saving."

بل الشكر كله لفريق العمل المميز جزاكم الله خيرا

الحمد لله ، تصورت من العنوان قبل قراءة الموضوع انها شكوي بخصوص سرعة الموقع شكرا على الموقع It's just you. http://www.officena.net is up. Check another site?

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

قائمة بأهم المواقع التي تقدم كورسات التعليم الذاتي منقول The best 31 websites for online courses 1- www.edx.org 2- www.coursera.org 3- www.udacity.com 4- www.mruniversity.com 5- www.class.stanford.edu 6- www.venture-lab.org 7- www.education.10gen.com 8- www.openhpi.de 9- www.ocw.mit.edu 10- www.khanacademy.org 11- www.oli.cmu.edu 12- www.oyc.yale.edu 13- www.webcast.berkeley.edu 14- www.openclassroom.stanford.edu/MainFolder/HomePage.php 15- www.see.stanford.edu 16- www.ck12.org 17- www.udemy.com 18- www.skillshare.com 19- www.codecademy.com 20- www.p2pu.org 21- www.ed.ted.com 22- www.myopencourses.com 23- www.myopencampus.in 24- www.nptel.iitm.ac.in 25- www.saylor.org 26- www.nalandau.com 27- www.academicearth.org 28- www.youtube.com/education 29- www.phodphad.com 30- www.learntobe.org 31- www.floqq.com

هذه الملفات مصدرها صفحة زميلنا م/ طارق حنيدق علي الفيسبوك إسم صاحب الملف موجود بالملفات م/محمود الشاذلى رابط التحميل http://www.gulfup.com/?3SZpyj ملفات اكسل مهمه لادارة مشروعات.rar

تهنئة للأخ حمادة عمر بالاشراف أهلا به فى فريق الموقع

تهنئة للأخوة جمال عبد السميع ، و رجب جاويش أهلا بكم فى فريق الموقع

السلام عليكم نظرا لجهودهم المتميزة ، نبارك لأنفسنا أولا و لهم ثانيا الترقية الي درجة المراقب العام و هي أعلي درجات آلية الترقيات الحالية الأخوة الأفاضل عبد الله باقشير ، دغيدي ، و أحمد فضيلة جزاكم الله خيرا

جميل جدا ً

نرحب بالأخ ضاحي و نهنيئ أنفسنا بانضمامه لفريق الموقع

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