اذهب الي المحتوي
أوفيسنا

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

إدارة الموقع
  • Posts

    8,707
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    36

كل منشورات العضو محمد طاهر عرفه

  1. السلام عليكم 1- إضافة إظهار صندوق اختيار (اختيار القسم الذى يتم فيه التعديل على الملفات المختلفة فى المجلد) بخلاف ما يتم عامة : الكود الحالي يقوم بالاستبدال لكل اوراق العمل ، اذا اردت اظهار رسالة لاختبار اسم ورقة العمل ، فسيعمل الكود على ورقة عمل واحدة فقط بدلا من الجميع في الوضع الحالي 2- فى التغييرات يتم الاخذ من أول قسم 1 (Div.01) وإذ لم يوجد يكمل فى باقى الشيتات بعدها وكما ظهر لسيادتكم فى الملف المرفق ما حدث للشيت الـ Cover فى الخلية A1 : اذا اردت اسثناء ورقة عمل او اكثر اسمها محدد مسبقا فهذا ممكن 3- يعمل على الملفات بدون النظر الملف به حماية أو لا : لا اعتقد ان هذا ممكن 4- لا يتم الدخول على المجلد الذى به الملفات (لان المجلدات بها مجلدات أخرى - لانها شجرة - من المجلدات ولكنها خاصة بمشروع واحد) وإنما يتم الدخول على المجلد الرئيسى : أتصور أن هذا ممكن 5- يحول الملف إلى صيغة PDF : يحوله لا اعتقد ، و لكن أتصور من الممكن حفظه بهذا التنسيق كملف اضافي و ليس معني تصوري ان هذا ممكن اني اعرف الحل ،و لكن ساحاول باذن الله ، و فى انتظار مساهمة باقي الاخوة وأتوقع مساهمات و حلول و أفكار مميزة
  2. تم تعديل المشاركة اعلاه ، و اضافة معادلة الطرح و 0.5 هنا تعني نصف يوم
  3. السلام عليكم المشكلة فى ملفك هي وجود مسافة زائدة قبل النص للتغلب عليها =MID(A7,2,2)&":"&MID(A7,5,2)&":"&MID(A7,8,2) أو =RIGHT(A7,8) مرفق الملف به المعادلتان Date2Txt.zip
  4. لم افهم السؤال البيانات المتغيرة في هذه الحالة سيكون مصدرها هو الإكسيل و النموذج و البيانات الثابتة ستكون في القالب الموجود في الوورد و سيتم تطبيق الدمج البريدي في الوورد لماذا تريد تعديل القالب في الوورد بالكود؟ الأمر يبدو لي يحتاج استخدام طبيعي مباشر الدمج البريدي فقط و تكون قاعدة البيانات في ملف اكسيل
  5. هذا الكود يمثل جزء مما طلبت و ليس كله فبتشغيله تقوم بتحديد الكلمة المراد استبدالها ، ثم الكلمة البديلة ، ثم تحدد المجلد فيقوم الكود بفتح الملف و استبدال الكلمة و الاغلاق لكل الملفات الموجودة فى المجلد على التوالي Sub ReplaceInFolder() Dim strPath As String Dim strFile As String Dim wbk As Workbook Dim wsh As Worksheet Dim strFind As String Dim strReplace As String strFind = InputBox("Enter text to find") If strFind = "" Then MsgBox "No find text specified!", vbExclamation Exit Sub End If strReplace = InputBox("Enter replacement text") With Application.FileDialog(msoFileDialogFolderPicker) If .Show Then strPath = .SelectedItems(1) Else MsgBox "No folder selected!", vbExclamation Exit Sub End If End With If Right(strPath, 1) <> "\" Then strPath = strPath & "\" End If Application.ScreenUpdating = False strFile = Dir(strPath & "*.xls*") Do While strFile <> "" Set wbk = Workbooks.Open(Filename:=strPath & strFile, AddToMRU:=False) For Each wsh In wbk.Worksheets wsh.Cells.Replace What:=strFind, Replacement:=strReplace, _ LookAt:=xlWhole, MatchCase:=False Next wsh wbk.Close SaveChanges:=True strFile = Dir Loop Application.ScreenUpdating = True End Sub المصدر الملف للتجربة Replacer.zip
  6. السلام عليكم بدلا من فتح الملف بالاكسيل مثلا يجب استيراد الملف بعد فتح الاكسيل Data From Text و اختار الملف ثم اختار الترميز المطلوب فى الخطوة التالية من خانة File Origin
  7. يرجى افراغ الكاش من المتصفح من كروم Setting Clear Browsing Data All time و لاكسببلورر Internet Options Browsing History Delete
  8. و تم اضافة حل عن طريق الكود فى نفس الموضوع المشار اليه اعلاه من هنا
  9. السلام عليكم من السهل استبدال تنسيق الاقواس نفسها بعد ذلك و هناك ايضا فكرة اعجبتني عن استبدال الاقواس بحرف مميز تجدها هنا و الحل الاخر هو اللجوء للكود و لكن ربما الامر لا يحتاج مثلا هذا الكود سيجعل كل ما بين الاقواس Bold ، و من دون الاقواس نفسها Sub FormatBetBrackets() 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.Bold = True cRng.Collapse Word.WdCollapseDirection.wdCollapseEnd .Execute Loop End With End Sub و مثلما جعلنا الخط Bold يمكن التحكم بباقي الخصائص مثلا نجعله ازرق و حجم الخط 12 هكذا cRng.FormattedText.Bold = True cRng.FormattedText.Font.ColorIndex = wdBlue cRng.FormattedText.Font.Size = 12
  10. اعجبتني فكرة الاستبدال كحل مبتكر و يمكن الاستعاضة عنها باستخدام \(*\) مثل ما هو مشروح في هذه المشاركة هنا
  11. الحقيقة ان هذا تم تطبيقه لفترة ليست بالقصيرة و لكن كان له عيوب كما له مميزات و خلصنا بعدها إلي أفضلية دمج الاقسام مرة أخرى لعموم الفائدة . و ان كن التقسيم افيد من وجهة نظر عدد كبير من الأعضاء و لكن واقع التطبيق كان اصعب في المتابعة و التنظيم و الطرح و البحث
  12. السلام عليكم بعد اذن اخي تومي ، باستخدام الواجهة الانجليزية لاختبار ما بين القوسين () ، جرب التالي اختار مربع الاستبدال CTR+H اختار التاب الخاص ب Find و اكتب فى مكان البحث ما يلي \(*\) ثم اضغط على More و عد ذلك اختار Wild Card او احرف البدل ثم اختار Find in All Document او Find within selection و سيتم تحديد كا بين الاقواس هذا فى حال الاقواس العادية () اما الاقواس المسماة براكت [] فيتم عمل نفس الخطوات مع استخدام البحث عن (\[)(*)(\])
  13. السلام عليكم ما المقصود بالايميلات المكررة ، هل تقصد ان لها نفس العنوان مثلا ؟
  14. السلام عليكم اعتقد انها تحفظ فى ال OST file OST (Microsoft Exchange offline) و ليس ال PST ما دمت لم تنقلها اليه عمدا للوصول اليه اختار Run %USERPROFILE%\AppData\Local\Microsoft\Outlook و ستصل لمكان الملف او ابحث عنه فى الجهاز مباشرة فى المسار التالي C:\Users\Username\AppData\Localp\Microsoft\Outlook حيث بالطبع ستستبدل Username بالاسم الخاص بك على الجهاز
  15. يمكن النقل لمجلد مخصص باسم كل شخص ، و ذلك عن طريق عمل قاعدة تحويل rule من قائمة Home Move Rules Create new rule
  16. السلام عليكم لم يصادفني ذلك من قبل ربما النسخة تحتاج لاعادة تحميل من ناحية اخرى هناك بعض النوعيات لا تسمح بتعدد الوصلات مثلا الهيكل التنظيمي Organization chart تسمح بمدير واحد و بالتالي عند اضافة وصلة لمدير جديد سيختفي السابق كما انها لا تسمح بوجود Loops
  17. هذه الرسالة تعني ان خيارات امان الماكرو غير مفعلة لديك
  18. تم حذق الثلاثة مواضيع التي لا ردود عليها و تم تعديل الموضوع الاول فقط المواضيع 2 و 3 و 4 بها نفس رابط الموضوع الاول ، فلم اكمل الباقي فى انتظار الروابط الصحيحية
  19. لم يصلني على البريد سوي البريد الاول ، الذي به مرفق واحد ووصلات للمواضيع يرجي اضافة ما يغني عن المرفقات السابقة فى كل موضوع سواء كانل نسخة معدلة من قاعدة البيانات او شرح للحل بوضوح ، و اخباري لاقوم بحذف المرفقات او الردود السابقة في كل موضوع
×
×
  • اضف...

Important Information