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

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

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

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

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

  • Days Won

    36

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

  1. طلب احد الزملاء طريقة فصل القيم عن الحروف فى ملف اكسيل قام بنسخه من الانترنت ، من هذا الموقع http://www.priceoftravel.com/595/public-transportation-prices-in-80-worldwide-cities/# بالمناسبة الملف عن مقارنة لاسعار المواصلات فى عدة دول ، و لا اعلم مدى دقة بياناته علما بانه بعد النسخ كان طول النص و كذلك طول القيم مختلف من خلية لاخرى مرفق الملف و به المعادلة ، ربما يحتاجه البعض الفكرة فى البجث عن مكان حرف ال $ باستخدام دالة find و تجزيء النص بالطريقة العادية باستخدام دالتي left , right Split PT Prices around the world.rar
  2. لمتابعة قسم
  3. السلام عليكم خاصية التراسل على الخاص حاليا موقوفة لمجموعتى الاعضاء و الاعضاء الجدد ، و يتم تفعيلها تلقائيا عند الترقية لأي من المجموعات التي تلي مجموعة الأعضاء
  4. نرحب بالأخ سليم حاصبيا فى فريق الموقع ونسأل الله أن يعينك على مهام الاشراف أهلا وسهلا
  5. كل عام و انتم بخير أولاً أقدر مشاركاتكم و حرصكم على التواصل مع الأخوة الأفاضل الذين غابو عن المنتدى، و الحقيقة انى لم احسن هذا الأمر منذ زمن طويل ، فحقيقة الامر ان تواصلى المباشر يتسم بالاقلال ، و مؤخرا أصبح ضعيف جدا مع الجميع الا قليل ممن اتيح لي اللقاء بهم على ارض الواقع. و فى الفترة الاخيرة اقتصر جزء كبير من الوقت الذي اخصصه للمنتدى على امور تتعلق بصيانة و تعديلات الموقع و التحديثات و حل المشاكل التي يوجهها بعض الأخوة فى امور تخص التسجيل و المشاركة و الصلاحيات و التي اصبحت تستنزف وقت ملحوظ مع زيادة عدد الاعضاء، و فى مقابل ذلك و قلت مشاركتي و تفاعلي الفعلي فى المواضيع و متابعة الأخوة و اعتمد فى ذلك على الأخوة الأفاضل فى فريق الموقع. و هذا ليس بالوضع المثالي و لكن لم استطع مؤخرا غير ذلك. من ناحية أخرى الجميع لهم ظروفهم الخاصة و تقدير اولوياتهم امر يعود لهم و غيابهم فى تقديري يكون بالتأكيد له أسبابه . و كما اتفقنا فى الية ترقيات الاعضاء ، فعودة من غاب للمشاركة نفرح بها جميعا ، و أيضا عودة من غاب من فريق الموقع للمشاركة فى الفريق الاداري ايضا دائما مرحب به ، و حدثت يالفعل عدة مرات خلال السنوات الماضية. لدى قناعة بان الموقع هنا يختلف عن الكثير من مواقع المنتديات الاخرى ، و تقديري للأخوة الفاعلين و اعمدة الموقع الذين ذكرتم و ايضا الكثيرين ممن لم يذكروا فى هذا الموضوع يجعلهم فى وجهة نظرى ارقى بكثير من ان تحفزهم مشاركة او تواصل او طلب للتواجد أو العودة اذا غابوا أو أن يثنيهم قلة التفاعل او التقصير فى التقدير عن المشاركة و افادة الاخرين. و انما يحفزهم بصورة اساسية نشر العلم و الرغبة فى ثواب افادة الاخرين. و أنا استعرض ما كتبت هنا فى هذا الموضوع ، و أفكر فيما سأكتب فى السطور التالية ، انتبهت الى ان اهتمامي بوجود نظام و الية عمل بالموقع و تطبيقها ربما يكون جعلني تعاملت مع غياب بعض الأخوة فى فريق الموقع سابقا بطريقة الية ( وفق النظام المتفق عليه بحذافيره ) أي أننى لم اتواصل بطريقة كافية مع من غاب عنا دون عذر معلوم ، و لعلى أرجع ذلك لحرصى على وجود نظام و تطبيفه لما اراه من فائدة لذلك على المدى الطويل، و لكن ربما تحتاج هذه الالية المعلنة الى تحديث يضيف اليها محسنات فى مجال التواصل، و سابحث ذلك باذن الله تعالى .كما اود ان انوه الى ان عملية التفاعل و التواصل مطلوبة من الجميع و ليس من إدارة و فريق الموقع فقط . و جزاكم الله خيرا على التنبيه.
  6. السلام عليكم اخي عمر ، ان حجم الملفات مرتبط بالمجموعة و ليس لكل عضوية ، تم النقل لمجموعة المشرفين السابقين ، و هي حاليا ليس لديها صلاحيات ادارية و لكن حجم التحميل اكبر.
  7. السلام عليكم اعتذر على التقصير فى المتابعة على ارض الواقع للجميع ، و نظرا لعدم توجدي بشكل تفصيلي فى كافة الاقسام ، فالترقيات تتم بناء على ترشيحات من الاخوة القائمين على الافسام المختلفة و المراقبين ، و تناقش فى قسم فريق الموقع قبل التنفيذ ، و هذا يحدث الان ، و سيتم التواصل مع من سيتم ترشيحهم من الاخوة خلال ايام. الانضمام الي فريق الموقع هو تطوع و مشاركة فى جهد اداري اضافي ، و عن نفسي اعبره تطوع اضافي بشكل اكبر من كونه ترقية، حيث ان بقاء صلاحيات المشرف مرهون برغبته فى الاستمرار فى المشاركة فى الجهد الاداري. و فى الحقيقة حين لا يتمكن المشرف من القيام به يتم نقله من مجموعة المشرفين الي مجموعة اخرى تضم فريق الموقع السابق جتى لا تتواجد صلاحيات ادارية مع عدد كبير فى نفس التوقيت مما قد يحدث نوع من التضارب فى تثبيت المواضيع و خلافه. و قد حدث اكثر من مرة ان ترك احد الاخوة الاشراف ثم عاد للمشاركة به حين سمحت ظروفه و ذلك بحسب الية الترقيات المتفق عليها و المثبتة فى القسم المفتوح. العناوين الغير واضحة هي مسؤولية مشتركة، فالحالة المثالية يندر حدوثها و هي ان يقرأ العضو الجديد القواعد جيدا قبل المشاركة. و طبعا هذا نادرا ما يحدث و عليه فيتم التنبيه من المشرف مرة او اثنان مع التعديل، فليس من المفترض ان يستمر عضو نفس الخطأ عدة مرات بعد تنبيهه و تعديل العنوان ، و فى بعض الاقسام الاخرى يتم اغلاق الموضوع مع كتابة السبب اذا تكرر نفس الخطأ. أخي ابو تامر ، أرحب بعودتك للمشاركة ، و اذا تُفضل ضم الحساب القديم للحساب الحالي ، ارجو اخباري. (هل رقم الهاتف القديم مازال كما هو ؟) و اذا غيرت رأيك مستقبلا فى أي وقت بخصوص الاشراف و رغبت فى المساهمة مرة أخرى فارجو اخباري.
  8. لا أعلم لهذه حل مباشر و آمل أن يكون لدى الاخوة حلول مباشرة لها فقد لا يكون هناك حل سوى التدخل الجراحي ( البرمجي) أو أن يكون هناك حلول مباشرة لا تحضرني ، و فى انتظار افادة خبراء الوورد
  9. السلام عليكم علم على النص الكامل ، ثم اضغط على هذه الغلامة (تغيير اتجاه النص)
  10. و هذا الكود لاستبدال الاسطر الزائدة الى تنتج عند النسخ من ملف PDF و يتم تشغيله بعد عمل اختيار للمنطقة المراد التطبيق عليها اولا Sub ReplaceLineBreak() ' With Selection.Find .Text = "^p" .Replacement.Text = " " .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub
  11. اذا اردنا تطبيق الاكواد علي اختيار معين و ليس كل الملف فقبل تشغيل الكود يتم الاختيار اولا و يتم تغيير هذا السطر .Wrap = wdFindStop
  12. السلام عليكم، انه مضمن ضمن الملف السابق و بيانه كالتالي: ' حذف المسافة بعد كلمة عبد Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "عبد ال" .Replacement.Text = "عبدال" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll
  13. المقصود بالسؤال ، عند ضغط ALT+F11 هل يظهر الملف الذي تم استيراده تحت اسم الملف الحالي او تحت اسم Normal بالنسبة للكود هذا هو ، و ما يتغير فى كل مرة هو هذا السطران فقط: .Text = " ." .Replacement.Text = "." Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " ." .Replacement.Text = "." .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " :" .Replacement.Text = ":" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " º" .Replacement.Text = "º" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll
  14. السلام عليكم لا اعتقد ان ذلك ممكن و لكن من الممكن ان تقوم بذلك بنفسك راجع هذا الموضوع ايضا يمكن لمدير الشبكة اجراء بعض التعديلات على ان تكون لكافة المستخدمين عن طريق ما يسمي بسياسة المجموعة Group Policy ، و ليس لحساب معين
  15. السلام عليكم فيما يخص تنسيفات القوائم و شريط الوصول السريع ، يتم ذلك من خلال التصدير ثم الاستيراد Customize quick access toolbar Export/import او File Options Customize quick access toolbar or Customize ribbon ام عن الماكروهات فانا عادة ما اقوم بتصدير الموديول و استيراده ALT+11 اختيار الموديول من ملف Normal ثم تصديرها و استيراده للمزيد يمكن البحث عن موقع الملف normal.dotm و الذي عادة ما يكون فى المسار التالي C:\Users\====\AppData\Roaming\Microsoft\Templates حيث ==== هو اسم المستخدم فى جهازك وتقوم بحفظ الملف و استبداله فى الجهاز الاخر مع ملاحظة ان AppData يكون مجلد مخفي افتراضيا ، و لا تستطيع رؤيته الى الا اذا اخترت فى اعدادات الاكسبلورر اظهار الملفات المخفية ، او يمكنك كتابته يدويا لتظهر محتوياته و اعتقد ان هذا الملف هو مكان حفظ الكثير من التنسيفات و قد يغني عن الخظوة السابقة اذا تم استرجاعه
  16. السلام عليكم تم التعديل فيما يخص كلمة عبد و اضافة حذف المسافة قبل كل من علامتي الفاصلة المنقوطة و النفطتان : اما عن الملف فاضغط ALT+F11 ثم File import و اختار الملف و اخبرني هل تم استيراده داخل ملف Normal ام لا مرفق الملف المعدل ( بتم استيراد الملف بعد فك الضغط اولا) WordRemoveArabic.rar
  17. تم اضافة مكون اخر و هو حذف المسافة قبل النقطة فى نهاية الجمل مرفق ملف الموديول الكامل بحيث يمكن استيراده الي ملف او الي ملف Normal ليعمل على كل الملفات (( تم تحديث الملف فى مشاركة لاحقة))
  18. يمكنك تصفح هذا القسم به حوالي 500 موضوع عن الدوال فقط http://www.officena.net/ib/forum/50-قسم-دوال-الاكسيل-الجاهزة-built-in-functions/ أيضا هناك العديد من المواضيع يمكنك الوصول اليها عن طريق البحث فى الموقع تتعلق بشرح الدوال بعضها بالفيديو مثال
  19. تم اضافة الطلبات الثلاثة الي الكود Sub ArabicSpace() ' حذف المسافة قبل الفاصبة Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " ، " .Replacement.Text = "، " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' حذف المسافة قبل حرف الواو Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " و " .Replacement.Text = " و" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' حذف المسافة بعد حرف الواو فى بداية الفقرة Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^pو " .Replacement.Text = "^pو" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' استبدال المسافتين الزائدتين بواحدة فقط Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " " .Replacement.Text = " " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' حذف المسافة قبل القوس Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " )" .Replacement.Text = ")" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' حذف المسافة بعد القوس Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "( " .Replacement.Text = "(" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll ' حذف المسافة بعد كلمة عبد Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "عبد " .Replacement.Text = "عبد" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub
  20. السلام عليكم الثانية و الثالثة من السهل اضافتها الطلب الاول منطقي ، و ممكن و لكن يحتاج لبعض التجارب و المحاولات سأحاول فيه قريبا بإذن الله ، و ارد بشأن الثلاثة ، ما لم يسبقني الي اجابتك أحد الأخوة
×
×
  • اضف...

Important Information