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

تم التغيير

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

السلام عليكم هذا القسم مخصص للمواضيع الخاصة بالدليل المعرفى لإدارة المشاريع - اٌلإصدار الرابع و شهادة مدير المشاريع المحترف PMP التابعان لمعهد إدارة المشاريع Guide to the Project Management Body of Knowledge -PMBOK® Guide—Fourth Edition Project Management Professional certificate PMP المواضيع التي ستنشر فى هذا القسم لا يجب أن تحوي أية مواد محمية بحقوق الملكية الفكرية مثل الكتب و الأسئلة ، وإنما يتم نشر الحوارات و المواد التي تمثل النتاج الشخصي للمشاركين فقط و أية مواد مخالفة سيتم حذفها مباشرة

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

السلام عليكم أهلا أهلا جرب تقسيم ملفات ال pst ، ost اذا كان حجمها كبير او انشاء ملف جديد و نقل البريد اليه http://digitalibiz.helpserve.com/index.php?_m=knowledgebase&_a=viewarticle&kbarticleid=7

فعلا هذا أسهل شكرا على المعلومة المفيدة

من هنا - هذا الموضوع سيتم تحديثه دوريا

بالنسبة للكتب أقترح اضافتها فى الأقسام المناظرة فى مكتبة الموقع و مع الاضافة سيتم فتح موضوع آليا فى القسم المناظر

بالفعل و نسأل الله سبحانه و تعالي أن يجعله فى ميزان حسناتك

يرجى الملاحظة أن اسم الدخول مختلف عن الاسم الذي يظهر فأيهما تريد تغييره؟

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

السلام عليكم مرفق الملف و الكود و شرح خطواته ReplaceallInFolder.rar و يمكنك حذف الثلاثة أسطر الخاصة بكل رسالة اذا لم ترد ظهورها و هي التي تبدأ ب msgbox Sub ProcessAll() ' هذا الكود يقوم باختيار فاعدة البيانات التي تحوي كافة اكلمات المراد استبدالها ' ثم اختيار مسار المجلد الموجود به الملفات المطلوب استبدال الكلمات بها ' ثم استدعاء كود الاستبدال ليعمل عليها واحدا تلو الآخر Dim Wb As Document, sFile As String, sPath As String Dim itm As Variant Dim strFileNames, mydbpath As String Dim f As FileDialog ' اختيار قاعدة البيانات Set f = Application.FileDialog(msoFileDialogFilePicker) f.Show If f.SelectedItems(1) = "" Then MsgBox "يجب اختيار ملف الاكسيس الذي يحوى الكلمات المطلوب استبدالها " Exit Sub End If mydbpath = f.SelectedItems(1) MsgBox "سيتم الاستبدال بناء على الملفت الموجودة فى قاعدة البيانات التالية : " & _ Chr(10) & Chr(13) & mydbpath & Chr(10) & Chr(13) & _ " مع تحيات أوفيسنا " & Chr(10) & Chr(13) & "www.officena.net" ' اختيار مسار الملفات المطلوب التطبيق عليها Set f = Application.FileDialog(msoFileDialogFolderPicker) f.Show If f.SelectedItems(1) = "" Then MsgBox "يجب اختيار مسار المجلد الموجود به الملفات التي تريد التطبيق عليها " Exit Sub End If sPath = f.SelectedItems(1) & "\" MsgBox "سيتم الاستبدال لطافة ملفات الوورد فى المسار التالي : " & _ Chr(10) & Chr(13) & sPath & Chr(10) & Chr(13) & _ " مع تحيات أوفيسنا " & Chr(10) & Chr(13) & "www.officena.net" ' اختيار مستندات الوورد فقط ضمن الملفات الموجودة فى المجلد sFile = Dir(sPath & "*.doc") ' ثم استدعاء كود الاستبدال ليعمل عليها واحدا تلو الآخر Do While sFile <> "" strFileNames = strFileNames & "," & sFile sFile = Dir() Loop ' فتح الملفات و تشغيل كود الاستبدال عليها و احدا تلو الاخر For Each itm In Split(strFileNames, ",") If itm <> "" Then Set Wb = Documents.Open(sPath & itm) Call Replacedoc(mydbpath) 'استدعاء كود الاستبدال Wb.Close True End If Next itm End Sub [/sql] [sql] Sub Replacedoc(mydbpath As String) ' هذا الكود يقوم باستبدال كافة الكلمات فى الملف المفتوح طبقا لما ورد فى قاعدة البيانات المحدد اسمها و مسارها فى المتغير Dim doc As Document Dim db As DAO.Database Dim rs As Recordset Set doc = Application.ActiveDocument Set db = OpenDatabase(mydbpath) Set rs = db.OpenRecordset(Name:="Table1") While Not rs.EOF With doc.Content.Find .ClearFormatting .Text = rs(0) With .Replacement .ClearFormatting .Text = rs(1) End With .Execute Replace:=wdReplaceAll, _ Format:=True, MatchCase:=True, _ MatchWholeWord:=True End With rs.MoveNext Wend rs.Close db.Close End Sub ReplaceallInFolder.rar

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

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

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

مشكلة المرفقات حلها تحديث المتصفح الى احدث النسخ اما IE8 أو استخدام متصفح آخر و كلها مجانية Opera Google chrome Mozilla Firefox Safari

قمت باضافة الكود الى ملف الأخ ابو اكرم كما قمت بعمل تعديل فى كوده لتثبيت مسار ملف قاعدة البيانات الى d:\temp2\Replacements.mdb حتى ال يسأل عنها فى كل ملف و الآن قم بما يلي أعد تسمية قاعدة البيانات باسمReplacements و ضعها فى نفس المسار مع الملفات التي تريد التجربة عليها أي d:\temp2 و شغل الكود ProcessAll فى الملف المرفق كما هو Replace.rar

هذا الملف يحتوي ثلاثة أكواد مختلفة Delete Extra space.rar الاول removeaddspace وهو كود مطور عن الكود السابق ويمتاز عنه بأنه لا يعيد البحث من البداية بعد كل حذف ويعطيك رسالة بعدد المسافات التي تم حذفها عند نهاية التنفيذ الكود الثاني removespaceafterWa وهو كود مماثل مصمم للتغلب على مشكلة الواو التي تأتي فى نهاية السطر ويرفضها البعض من حيث الشكل، لذا يقوم الكود بحذف المسافات الزائدة التى تليها فلا يمكن أن تأتي كآخر كلمة فى السطر الكود الثالث removeallspaces يقوم بتنفيذ الكودين السابقين على التوالى Sub removeaddspace() ' code written by Mohamed Taher ' Purpose is to remove additional successive spaces (more than one space) Dim chrcount, curpos, mycount As Long curpos = 1 Selection.WholeStory chrcount = Selection.Characters.Count 'MsgBox chrcount Nextspace: For i = curpos To chrcount Application.StatusBar = "Removing extra spaces" & _ i & "/" & chrcount & " Please Wait......." If Selection.Characters(i).Text = " " Then If Selection.Characters(i + 1).Text = " " Then Selection.Characters(i + 1).Text = "" mycount = mycount + 1 chrcount = chrcount - 1 curpos = i GoTo Nextspace End If End If Next i MsgBox "no. of spaces removed = " & mycount & Chr(10) & Chr(13) & " Best Wishes from Officena" & Chr(13) & " www.officena.net " End Sub Sub removespaceafterWa() ' code written by Mohamed Taher ' Purpose is to remove additional successive spaces (more than one space) Dim chrcount, curpos, mycount As Long curpos = 1 Selection.WholeStory chrcount = Selection.Characters.Count 'MsgBox chrcount Nextspace: For i = curpos To chrcount Application.StatusBar = " removing extra spaces after Wa" & _ i & "/" & chrcount & " Please Wait......." If Selection.Characters(i).Text = " " Then If Selection.Characters(i + 1).Text = "&aelig;" And Selection.Characters(i + 2).Text = " " Then Selection.Characters(i + 2).Text = "" mycount = mycount + 1 chrcount = chrcount - 1 curpos = i GoTo Nextspace End If End If Next i MsgBox "no. of spaces afer Wawo removed = " & mycount & Chr(10) & Chr(13) & " Best wishes From Officena site " & Chr(10) & Chr(13) & " www.officena.net " End Sub Sub removeallspaces() Call removeaddspace Call removespaceafterWa End Sub Delete Extra space.rar

جرب هذا الكود ، سيقوم بحذف المسافات على التوالى و أنت تشاهد الشاشة Sub replaceit() Dim chrcount As Long nexttt: Selection.WholeStory chrcount = Selection.Characters.Count For i = 1 To chrcount - 1 Application.StatusBar = "Searching ...." & _ i & "/" & chrcount & " Please Wait......." If Selection.Characters(i).Text = " " Then If Selection.Characters(i + 1).Text = " " Then Selection.Characters(i + 1).Text = "" chrcount = chrcount - 1 GoTo nexttt End If End If Next i End Sub

اذا كان الملف بامتداد pps لا تحاول تشغيله مباشرة و لكن افتح الباوربوينت أولا كتطبيق ثم File open و اختار الملف ثم احفظه بامتداد ppt power point presentation

لتشغيل ماكرو معين على أكثر من ملف موجود فى مجلد واحد Sub ProcessAll() Dim Wb As Document, sFile As String, sPath As String Dim itm As Variant Dim strFileNames As String sPath = "d:\temp2\" ' Retrieve the current doc files in directory sFile = Dir(sPath & "*.doc") Do While sFile <> "" strFileNames = strFileNames & "," & sFile sFile = Dir() Loop ' Open each file found For Each itm In Split(strFileNames, ",") If itm <> "" Then Set Wb = Documents.Open(sPath & itm) Call addredheader 'this runs my macro from above Wb.Close True End If Next itm End Sub مرفق ملف به هذا الكود ، بالاضافة الي ماكرو يقوم باضافة كلمة أوفيسنا موقع الكيرسور أو مكان المؤشر و تغيير لونها و تكبير الخط اسمه addredheader اعددته للتجرية فقط جرب علي ملفات خالية حدد مسار الملفات التى تريد التطبيق عليها ثم شغل الماكرو ProcessAll سيقوم بتطبيق الماكرو addredheader على كافة الملفات من نوع *.doc داخل المجلد المحدد داخل الكود وهو هنا فى المثال d:\temp2 كما هو مبين أعلاه و طبعا ستستبدل الماكرو addredheader بالماكرو الذي تريد تطبيقه و أخيرا لا تجرب على الملفات الحقيقية فقط ضع اي ملفات فى المسار d:\temp2 للتجربة ، أو عدل المسار كما تريد run multi macro.rar

لا يوجد فى الوورد طريفة للتكرار اعلى الصفحة الا باستخدام رأس الصفحة Header view header and footer

المفترض أن الحل نفسه يعمل على اوفيس 2007 مع اختلاف مسار ملف ال normal.dot ابحث عن مسار الملف و عدله أو جرب فتح ملف و كانك ستقوم بحفظه ثم اختار النوع Template أو قالب ، و انظر اين سيتم تخزينه ثم اذحب الى هذا الملف و عدل ما شئت فيه هذا الملف هو الذي يتم بناء عليه فتح أي ملف جديد فى الوورد

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

File Name: الحكمة الإدارية - د. عبد المالك أبو الشيخ File Submitter: محمد طاهر File Submitted: 19 Aug 2009 File Updated: 19 Aug 2009 File Category: دورات و دروس فى الإدارة والعمل و الحياة ملخص لكتاب الحكمة الإدارية باللغتين العربية و الإنجليزية إعداد د, عبد المالك أبو الشيخ Click here to download this file