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

نعم ممكن من خلال وضع قاعدة من Tools Rules & Alerts أنشئ قاعدة جديدة بالخيارات المطلوبة

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

راجع خيارات الأمان بالنسبة لتنزيل الصور Tools options Security change automaticdownload settings و يمكنك السماح بتنزيل الصور من قائمة الأشخاص المسجلين لديك أو المواقع التي تم تسجيلها كمواقع آمنة أما ترك الخيار مفتوحا لكل الصور فهذا خيرا آمن حيث ان بعض أنواع الصور بمكن أن تحوي على سكريبتات مضرة

السلام عليكم هذه الخاصية بالصورة التي تريدها غير موجودة ضمن خصائص الأوتلوك و لكن قرأت عن إضافة للبرنامج add-in تقوم بها و ثمنها 30 دولار تقريبا http://www.sperrysoftware.com/outlook/follow-up-reminder.asp و لم أجربها

هذه الخاصية متاحة فى 2007 فقط و الله أعلم

عند إرسال رسالة جديدة اختار قائمة خيارات Options ضمن الايقونة أعلى شاشة الرسالة ثم اختار BCC

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

تم التغيير

السلام عليكم هذا هو ما يحدث فى نظام المكتبة عند اضافة أي موضوع ، يتم اليا اضافة موضوع فى القسم المناظر يحوي رابط للمكتبة و المكتبة تعتبر مكان أكثر خصوصية للملفات الهامة لذا بعد نشر الموضوع يمكن حذف المرفق من الموضوع الاصلي و استبداله برابط التنزيل من المكتبة كما يمكن دمج مواضيع الحوار السابقة مع الموضوع الجديد حجم الملفات فى المكتبة 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