المشاركات : 666
المواضيع 305
الإنتساب : Sep 2013
السمعة :
9
الشكر: 2795
تم شكره 1058 مرات في 159 مشاركات
01-08-20, 05:20 PM
الاخوة الكرام
السلام عليكم ورحمة وبركاته
كيف انشي زر امر يتأكد انه يوجد برنامج Wordعلى الحاسب وإذا لم موجود يظهر رسالة لمستخدم ؟؟
نامل من الله المساعدة
وكل عام وانتم با الف صحة وعافية
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ
المشاركات : 666
المواضيع 305
الإنتساب : Sep 2013
السمعة :
9
الشكر: 2795
تم شكره 1058 مرات في 159 مشاركات
(01-08-20, 06:30 PM)Anas Mahmoud كتب :
كود :
Private Sub Command1_Click()
On Error Resume Next
oWord = CreateObject("Word.Application")
If Err.Number <> 0 Then
If Err.Number = 429 Then
'Cannot create object
MsgBox "Word is not available"
End If
'Failed
Unload Me
Else
MsgBox "Word is available"
End If
End Sub
https://www.experts-exchange.com/questio...#succeeded
لكم فائق الشكر والتقدير
تحياتي
إذا ضاقت بك الأحوال يوماً فَثِقْ بالواحِدِ الفَرْدِ العَلِيِّ