قمت با ارفاق مثال لفكرة البرنامج لتعم الفائده للجميع وقد واجهتني عدة مشاكل وارجوا مساعدتي في تجاوزها وهي :
1/ اريد كود فتح الملف للتعديل عليه في الخلفيه
أي عدم ظهور الملف عند فتحه في شريط ابدأ
2 / اتسائل عن كيفية عرض صفحة ملف الورد في فورم فيجوال بيسك
قمت بتجربة browser web control الا انها لم تفي بالغرض حيث انها تجبرني على تغير امتداد الملف
او كيفية عمل PrintPreview للملف مع إخفاء شريط الأدوات للمستند .
المعذره على كثرة الاسئله الا انني عجزت لإجاد الحلول
اتساءل نفس السؤال وكنت اتمني الرد علية من الأخوه الأفاضل ذو الخبرة
(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
ارجوا ان قد وصلت المعلومه
(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
ارجوا ان قد وصلت المعلومه
شكرا جزيلا للرد وسوف اقوم بالعمل وان شاء الله نتواصل
مع ضرورة مراعاة إصدار الأوفيس
أوفيس 7 doc
أوفيس 10 dox
وهكذا