14-12-14, 10:38 AM
(14-12-14, 12:14 AM)refathafez كتب : اتساءل نفس السؤال وكنت اتمني الرد علية من الأخوه الأفاضل ذو الخبرة
عزيزي لقد توصلت الى الحلول وقربت انتهي من برنامجي وسوف أقوم برفعه للموقع ليستفيد الجميع
هذا كود فتح ملف وورد :
بعد ما تضيف مكتبة الوورد من القائمة project ثم references
تضيف Microsoft word 14
تقوم بتعريف متغير من نوع word
dim myword as Word.Application
هنا نقوم با استدعاء برنامج وورد وفتح مستند موجود لديك مسبقا في نفس المجلد الموجود فيه البرنامج
Set myword = CreateObject("Word.Application")
myword.Documents.Open App.Path & "\word1.doc", ReadOnly:=False
myword.Visible = False
بامكانك تغيير مسار الملف بتغيير الكود بهذا الشكل
myword.Documents.Open ("d:\HR DOCUMENT\bank\word1.doc"), ReadOnly:=False
ارجوا ان قد وصلت المعلومه
