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

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

اتبع ما تحب

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

السلام عليكم أخوتي الكرام أعضاء منتدى أوفيسنا ، مع اقتراب شهر مارس 2018 ، حيث يقترب موقعكم أوفيسنا www.officena.net من إكمال عامه الخامس عشر و يقترب عدد المشاركات من النصف مليون مشاركة أغلبها في مجال مايكروسوفت أوفيس، ويقترب عدد الأعضاء من 160 ألف عضو، و بذلك يكون على حد علمي اكبر منتدى متخصص في مجال دعم و تطوير الاوفيس بتطبيقاته المختلفة باللغة العربية . و لله الفضل و المنة أولا و أخيرا ، ثم لجهود عدد كبير جدا من الاخوة الافاضل ، منهم من رحل عنا ( نسأل الله تعالى أن يتغمدهم برجمته و أن يبارك في مشاركاتهم كصدقة جارية من باب علم ينتفع به ) ومنهم من غاب عنا و منهم من مازال بيننا مستمر العطاء دون كلل و منهم من يطل علينا بإطلالة جميلة تثلج صدورنا من وقت لآخر و تذكرنا به و بما قدم من فائدة. منهم من انضم لفريق الموقع الإداري و منهم من فضل المشاركة و العطاء دون الانضمام ، أسماء كثيرة تمر الأن أمامي في شريط طويل من الذكريات عمره خمسة عشر عاما من عطاء و بذل الكثير من الأخوة كانوا و مازالوا امثلة عملية على بذل الوقت والجهد العلم و مشاركة المعرفة دون انتظار مقابل او تقدير أو عائد سوي أجر نشر العلم و حب مساعدة الغير. و اعترف دائما بتقصيري في تقديم التكريم و التقدير و الشكر الكافي لهم ، ربما لقناعتي انهم رجال فوق هذا التكريم او الشكر و ان ما قدموه و يقدمونه الي اليوم لا يوازيه درجات او عبارات شكر و اعرف ان هذا تقصير من جانبي و لكنه للأسف واقع أقر به و ربما أثر سلبا على بعض الأخوة بمختلف درجات مساهماتهم و مشاركتهم و اعتذر منهم لذلك. إن التغيير سنة الحياة ، و أن المرونة و التطوير شيء لابد منه، و عليه فان طريقة عمل الموقع و السياسات المطبقة به يمكن ان تتغير مع مرور الوقت بناء على المستجدات و المعطيات الجديدة و ذلك بهدف تعظيم الفائدة من الموقع و تطوير تنظيم العمل به. و اكمال خمسة عشر عاما قد يكون توقيت مناسب لتطوير كبير في أسلوب و سياسات و طريفة العمل بالموقع. جزء من التغيير كان تنفيذ التوسع في الأقسام بناء على طلب عدد من الاخوة ، بعد ان ظل الموقع للأعوام طويلة قاصرا على التخصص بصفة أساسية في تطبيقات الاوفيس المختلفة قد كنت انا شخصيا من مؤيدي ذلك، و لكن تم تنفيذ التوسع مؤخرا نزولا على رغبة و رأي عدد من الأخوة و بالفعل بدأ بعض هذه الأقسام الجديدة في النشاط ، و البعض مازال لم ينشط بعد ، و لكن لن نتسرع في الحكم ، و سنقوم بتقييم الموقف اما بعد شهر رمضان أو ربما بعد عام كامل باذن الله تعالى لنقرر سويا الأقسام الجديدة التي سنحتفظ لها و تلك التي ستحال الي التقاعد من بين الأقسام المضافة حديثاً. كنت انوي الاستفاضة في بعض المواضيع الأخرى في حوار مفتوح من القلب ، و لكن أجلت ذلك و رأيت الفائدة الأكبر في أن اترك الموضوع مفتوحا لتجميع أي اقتراحات ترونها تهدف لتطوير العمل بالموقع و زيادة الاستفادة منه لدراستها و تنفيذ ما هو مجدى منها تباعا بإذن الله تعالى خلال الفترة القادمة. في انتظار مشاركتكم الفاعلة كخطوة أولى في سبيل العمل في مشروع محتمل لتطوير العمل بالموقع و الذي سنسميه اذا تم اطلاقة بإذن الله تعالى "مشروع تطوير أوفيسنا ٢٠١٨" و الذي ستساعد ملاحظاتكم و اقتراحاتكم في اعداد وثائق الأعمال ثم ميثاق المشروع الخاص به. و بأذن الله تعالى أفكر في نشر وثائق المشروع تباعا كمثال عملي يستفيد منه من يرغب في تعلم إدارة مشاريع التطوير في قسم إدارة المشاريع بالمنتدى و هذا سيتحدد بناء على حجم و نوعية ما سيأتي من أفكار لتطوير العمل بالموقع. أرجو ان تكون المقترحات التطويرية عملية وواضحة و مختصرة في الوقت الحالي، و الا تتعدى الردود إضافة اقتراحات محددة دون اقتباس ليكون الموضوع مركزا و عملياً ، و لا حدود لمجال معين من الاقتراحات فنرحب مقترحاتكم في أي اتجاه دون قيود طالها انكم ترون أنها تصب في تطوير العمل و تعظيم الاستفادة من الموقع. و اعتذر مقدما لحذف أي مشاركات قد تخرج عن حدود الهدف من الموضوع كعبارات الثناء او اللوم فالمجال مفتوح في قسم الاقتراحات و الملاحظات لإضافة أي ملاحظات أخرى قد تخرج عن نطاق الهدف من هذا الموضوع. و لنعتبر هذا المشروع جلسة عصف ذهني افتراضية موسعة لتحديد مبدئي لفرص التطوير بالموقع و الجميع مدعوون للمشاركة دون قيود. يشارك بها فقط من يرغب بصدق في تطوير العمل بالموقع و تعظيم الاستفادة منه و استدامته . مرة أخرى في انتظار مقترحاتكم ، و رجى الرد في هذا الموضوع بالمنتدى و ليس على وسائل التواصل الاجتماعي المختلفة لتسهيل حصر الاقتراحات. وأرجو ان تكون المقترحات عملية وواضحة و الا تتعدى الردود إضافة اقتراحات محددة دون اقتباس ليكون الموضوع مركزا و عملياً

الف مبروك و الي الامام دائما باذن الله في كل المجالات

هل تأكدت من أن الخط المطلوب محمل على الجهاز حاليا ؟

راجع خيارات الوورد Options Customize Ribbon و رجع الأوامر المناظرة و تأكد من وجود الاختصار

ممتاز جدا و لمن لديه الواجهة الانجليزية Insert Object Text ثم اختيار الملفات التي تريد دمجها

السلام عليكم اعتقد انه من الأفضل الاعتماد على الجداول بدلا من مربعات النص بالنسبة للتحكم في حركة مربعات النص جرب تغيير خاصية Wrap Text

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

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

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

جرب تعديل الحقول التي تحوي اسماء الي ترميز اللعة العربية عند التصدير Print #FileNum, "N;LANGUAGE=en-us;CHARSET=windows-1256:" & FirstName & ";" & LastName & ";;;" Print #FileNum, "FN;CHARSET=windows-1256:" & FullName

لم تفدنا بالرد

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

صراحة من الصعب التجربة دون وجود نسخة الاوفيس 2007 و من الافضل ان تحاول ترقية النسخة اذا تيسر لك ذلك من ناحية اخري جرب التالي: اولا عند توقف الكود قف بالماوس عند كل متغير فى السطر الاصفر ، و اكتب القيمة التي تظهر لك هنا ثانيا جرب تعريف المتغيرات كلها فى البداية Dim iRow, FileNum As Integer Dim OutFilePath As String ثالثا افتح Tools references واكتب ما هي ال Missing references التي تظهر و اكتبها هنا ثم بعد ذلك جرب ازالتها من الشاشة و جرب مرة اخرى

فى اي سطر يتوقف الكود ؟ جرب الخطوات السابقة الخاصة بال Debug

الحمد لله ، شكرا على الافادة أخي وليد ، اذا كان الكود السابق الذي كان يصدر الملف بالاسم مدمجا به الرقم ، قد عمل معك فجرب فى الكود الاخير استبدال طريقة تعريف المتغيرات أي استبدل السطر التالي Dim iRow, FileNum بالتالي Dim FileNum As Integer Dim iRow As Double أو Dim iRow, FileNum as integer

للاسف ليس لدي نسخة 2007 لاجرب معك ساحاول لاحقا تعديل الكود ببديل اخر باذن الله او ربما يفيدك احد الاخوة بالتعديل المطلوب

السلام عليكم لقد جربته على جهازين مختلفين و يعمل جيدا ، و الجهازين بهما اوفيس 2016 ربما بعد الكود غير منوافق مع النسخة لديك افتح محرر الاكود و اختار Debug compile VBA Project و أخبرني اذا توقف لكود عند سطر معين او اعطي رسالة مختلفة

الماكرو بعد التعديل ليصدر اول تسعة سجلات للتجربة تم ايضا محاولة تثبيت ترميز اللغة العربية و اختيار الثلاثة حقول التي تريد الاسم و هاتف المنزل و المحمول Sub Create_VCF() Dim iRow, FileNum For iRow = 2 To 10 FileNum = FreeFile CNAMe = ActiveSheet.Cells(iRow, 1) MTel = ActiveSheet.Cells(iRow, 2) HTel = ActiveSheet.Cells(iRow, 3) OutFilePath = ThisWorkbook.Path & "\" & CNAMe & ".VCF" Open OutFilePath For Output As FileNum Print #FileNum, "BEGIN:VCARD" Print #FileNum, "VERSION:2.1" Print #FileNum, "N;LANGUAGE=en-us;CHARSET=windows-1256:" & CNAMe Print #FileNum, "FN;CHARSET=windows-1256:" & CNAMe Print #FileNum, "TEL;HOME;VOICE:" & HTel Print #FileNum, "TEL;CELL;VOICE:" & MTel Print #FileNum, "END:VCARD" Close #FileNum Next iRow End Sub لتجربة الملف يمكنك تغيير عدد السجلات التى ترغب فى تصديرها بتغيير الرقم 10 الي الرقم الذي ترغب به ، حاليا اختيار الرقم 10 يصدر اول تسع سجلات (الي الصف العاشر فى الملف) ايضا يمكنك تعديل البداية بدلا من 2 التي تمثل السطر الثاني الي اي رقم ترغب به ليبدأ التصدير منه من لكن ليس رقم 1 لانه يحوي اسماء الحقول ExporttoCVF.xls

السلام عليكم ريما اكود وجدت الحل لموضوع اللغة العربية حيث تبين انه يمكن تحديد الترميز اثناء تكوين الملف و قد عرفت ذلك عندما سجلت احد العناوين بالعربية و صدرته وجدت ان الصيغة قد تغيرت لتشمل ترميز العربية CHARSET=windows-1256 و كان محتوي ملف ال CVF كالتالي عندما فتحته بمجرر النصوص BEGIN:VCARD VERSION:2.1 N;LANGUAGE=en-us;CHARSET=windows-1256:عرفة;محمد;طاهر FN;CHARSET=windows-1256:محمد طاهر عرفة TEL;HOME;VOICE:666666 TEL;CELL;VOICE:777777 END:VCARD و عليه يمكن تعديل كود الترميز ليحوي ترميز العربية ، و يبنى الملف بنفس الطريقة فى الملف اعلاه ساحاول باذن الله الآن و احاول ايضا تعديل الكود ليشمل الحقول التي تريدها كما فى السطور السابقة ، الاسم و رقم المنزل و رقم الهاتف

السلام عليكم لاستبدال تصدير اوراق العمل كلها ، بتصدير ملف واحد الي pdf استبدل السطرين التالليين ShFile = strPath & Left(wbk.Name, Len(wbk.Name) - 4) & Sheetcounter & "-" & wsh.Name ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ShFile _ , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _ :=False, OpenAfterPublish:=False بما يلي ShFile = strPath & Left(wbk.Name, Len(wbk.Name) - 4) wbk.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ShFile و من الأفضل أن يتم نقله خارج اللوب الخاص بالشيتات. حتى لا يتكرر إنشاء و استبدال الملف. متبقي التعامل مع الملفات الموجودة فى المجلدات الفرعية و ربما بعد الانتهاء نضيف واجهة استخدام باذن الله ليصبح التطبيق اكثر سهولة و اعم فى الاستخدام

السلام عليكم الكود يحتاج لتعديل . و لكن الهدف آلان هو مشكلة اللغة العربية فان حلت تعدل الكود بإذن الله و اعتقد ان المشكلة مشكلة اوفيس او ويندوز و ليس كود و صراحة لم انتبه الي الاكواد الموجودة فى الضفحة الاولى من الموضوع الا الان ،ويبدو لي انها افضل من هذا و لم اجربها بعد احد الحلول هو ان تعيد تحميل الاوفيس او على الاقل ال Proofing Tool https://support.office.com/en-us/article/language-accessory-pack-for-office-82ee1236-0f9a-45ee-9c72-05b026ee809f?ui=en-US&rs=en-US&ad=US

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