فورم لفتح برامج الاوفس

[عادل حنفي]

السلام عليكم

مرفق ملف به فورم لفتح برامج الاوفس الموجوده لديك

يتوجب عند حدوث عدم فتح اي برنامج من البرامج المذكوره

التاكد من مسار هذه البرامج بجهازك و تعديل الكود بتغير المسار

داخل الكود وفقا للفعلي

تحياتي

___________.rar

تم تعديل سبتمبر 18, 2008 بواسطه aah_aah2008

[omar elhosseini]

عليكم السلام ورحمة الله وبركاتة

الاخ aah_aah2008

اخى استخدم الكود التالى ليعطيك دريف التظام واضف المتغير الناتج الى متغير المسار فى كودك

Private Declare Function GetEnvironmentVariable Lib "kernel32" _
                        Alias "GetEnvironmentVariableA" ( _
                        ByVal lpName As String, _
                        ByVal lpBuffer As String, _
                        ByVal nSize As Long) As Long
Function GetMe() As String
WhoMe = "SystemDrive"
GetMe = String(255, 0)
GetEnvironmentVariable WhoMe, GetMe, Len(GetMe)
If InStr(1, GetMe, Chr(0)) > 0 Then
    GetMe = Left(GetMe, 1)
End If
End Function
Sub Test()
DriveSys = GetMe()
End Sub

ملحوظة

لم اعدل ملفك تأدبا لتكمل موضوع الجميل

تم تعديل سبتمبر 18, 2008 بواسطه أبو تامر

[عادل حنفي]

السلام عليكم

لم اعدل ملفك تأدبا لتكمل موضوع الجميل

اخي العزيز ابو تامر يوما بعد يوم اجد فيك ميزة اخري اجمل من التي عرفتها عنك سابقا

استاذي العزيز انحني احتراما لك و ليس خجلا مني ان اقول انني لم اعرف فلقد حاولت

تطبيق فكرتك و لكن فشلت محاولتي ...... فلم يمر علي سابقا كود مقارب

لذا اتشرف باضافتك علي هذا الملف لاستفيد و يستفيد الجميع منك

لان مافهمته ان الكود الذي ذكرته انت ياتيني بالدرايف و اضع انا باقي المسار لكن كيف

هذا ما ساتعلمه منك

و الموضوع سيكون اجمل بلمساتك انت اخي العزيز

خالص تقديري و احترامي

تم تعديل سبتمبر 19, 2008 بواسطه aah_aah2008

[omar elhosseini]

شكرا اخى aah_aah2008

كل سنة وانتم طيبون

يمكنك اخى استخدام الدلة بأحد الطريقتين التاليتين :::

Sub Ex_1()
Drv = GetMe()
Shell Drv & ":\program files\microsoft office\OFFICE11\winword", vbNormalFocus
End Sub

Sub Ex_2()
Shell GetMe() & ":\program files\microsoft office\OFFICE11\winword", vbNormalFocus
End Sub

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

MyOffice = Application.Path

النتيجة  ::

"D:\Program Files\Microsoft Office\OFFICE11"

فهو يستخرج مسار الاوفيس متضمنا الدرايف ومسار البروجرم فيل مشمول برقم نسخة الاوفيس وبذلك نبعد عن اخطاء المتسخدمين ( البعض يركب الاوفيس فى مسار مختلف عن "Program Files" ) فما عليك سوى اضافى اسم التطبيق الى ناتج الامر ويمكنك استخدامه بالطريقة التالية

Sub Ex_3()
Shell Application.Path & "\winword", vbNormalFocus
End Sub

مع هذا الامر لن تحتاج الى الدالة التى ادرجتها سابقا فهو امر مباشر

مع تحياتى اخى

[عادل حنفي]

السلام عليكم

و كل عام انت بكل خير و بصحة وعافية

اخي العزيز طبعا الكود الاخير اجمل و مختصر

لذا قمت يتعديل الملف بناء عليه

و اشكرك اخي العزيز

بارك الله فيك و في اولادك

تحياتي

____________________________________.rar

[أكرم الغامدي]

ما شاء الله تبارك الله عمل جيد أخي عادل.

وأصبح عمل ممتاز بمرور أستاذنا أبو تامر بارك الله فيه.

بارك الله لكما في علمكما، وزادكم من فضله.

[نزار سليمان عيد]

السلام عليكم

في هذه المشاركة مفاجئتين تسر القلب

اولها عودة اخونا ابو تامر و حمدا لله على سلامتك اخي

ثانيا الاضافة الجميلة والرائعة من اخي العزيز عادل

جزاكم الله خيرا ونفع بكم امة الاسلام

ابو خالد

[أبو عادل]

جزاكم الله كل خير على ماتقدموه من معلومات في هذا المنتدى الرائع

[عادل حنفي]

السلام عليكم

اخي الحبيب اكرم الغامدي اشكرك علي مرورك و كلماتك

التي لها معاني خاصه عندي و بالمناسبة مبروك علي الترقية التي انت اهلا لها

اخي الحبيب نزار اشكرك علي مرورك مع تمنياتنا بعودة اخينا العزيز ابو تامر فنحن بالفعل نفتقده

و يمكن الذي يشغل بالنا و عدم سؤالنا عليه هو انشغالنا المستمر هذه الايام لذا ان كان هناك اي اخبار تطمأننا عليه

فمشكور من يبلغنا بها

اخي العزيز mfawaz مشكور اخي علي مرورك الكريم بارك الله فيك

تحياتي

[احمدزمان]

السلام عليكم و رحمة الله

اللهيجزاك بالخير استاذ عادل

و اضم صوتي الى صوت احواني

نتمنى ان نرى الأستاذ ابو تامر بيننا هنا

حيث له ابداعات و اعمال جميلة لا تنسى

ولقد حاولت جمع معظمها على الرابط التالي

http://www.officena.net/ib/index.php?s=&am...st&p=126195

مع التخية

تم تعديل فبراير 19, 2009 بواسطه احمد يعقوب

[عادل حنفي]

السلام عليكم

اخي الحبيب احمد يعقوب

نرجو من سيادتكم التوضيح لان اسلوبك اصبح من الدسامه بحيث يصعب فهمه

و اضم صوتي الى صوت احواني

من هم الاحوان اخي العزيز

مع التخية

و ما هي التخيه

ارجو التوضيح لتوقف البرنامج علي الاجابة

------------------------------------------------------------

طبعا مزحه معاك اخي الحبيب

بحاول اجعلك تضحك مثلما اضحكتني سابقا

خالص تحياتي و تقديري

تم تعديل فبراير 20, 2009 بواسطه aah_aah2008

[احمدزمان]

و عليكم السلام

فعلا اضحكتني

يعني - وحدة بـ وحدة

جزاك الله كل خير

وادخل الله السرور الى قلبك دائما و ابدا

[ابوالزوز]

السلام عليكم ،،

أخواني وأساتذتي الأعزاء اسمحوا لي بإضافة طريقة أخرى لفتح برامج الأوفيس

وشكراً لكم وجزاكم الله كل خير على أعمالكم التي تقدمونها لهذا المنتدى

تقبلوا جميعاً تحياتي ..

________________________________.rar

[عادل حنفي]

السلام عليكم

بارك الله فيك اخي abuzzouz

تحياتي