[refathafez]

(14-12-14, 10:38 AM)Ksa004 كتب :

(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


ارجوا ان قد وصلت المعلومه

شكرا جزيلا للرد وسوف اقوم بالعمل وان شاء الله نتواصل