طلب هام جدا

السلام عليكم

من قائمة project اضغطي علي refrences لاضافة مرجع للكائن microsoft word

ثم ضعي علامة صاح علي microsoft word 11.0 object.library


ثم في قسم الاعلان العام اعلني عن متغير كالتالي


Dim w As Word.Application

في الاعلان السابق عرفنا متغير يمثل كائن microsoft word

ثم ضعي زري امر علي النافذه

في زر الامر الاول اكتبي هذا الكود

On Error GoTo error1
Set w = New Word.Application
w.documents.add
w.visible = true
error1:
If Err.Number = 429 Then
msgbox "لايوجد نسخه من microsoft word"
End If


السطر الاول التعليمه on error goto لاصطياد الاخطاء التي قد تحدث

السطر الثاني وضعنا كائن وور جديد في الذاكره بالامر set مع الامر new

السطر الثالث اضافة وثيقه فارغه في وورد

السطر الرابع اظهار كائن وورد

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

في زر الامر الثاني

w.quit
set w = nothing


اغلاق وورد
تحرير الذاكره

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