تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مرفق مشروع برنامج يتعامل مع برنامج وورد . يرجى مساعدتي لحل المشكله
#1
Exclamation 
قمت با ارفاق مثال لفكرة البرنامج لتعم الفائده للجميع وقد واجهتني عدة مشاكل  وارجوا مساعدتي في تجاوزها وهي :

1/  اريد كود فتح الملف للتعديل عليه في الخلفيه
أي عدم ظهور الملف عند فتحه في شريط ابدأ


2 / اتسائل عن كيفية عرض صفحة ملف الورد في فورم فيجوال بيسك
قمت بتجربة browser web control  الا انها لم تفي بالغرض حيث انها تجبرني على تغير امتداد الملف

او كيفية عمل PrintPreview للملف مع إخفاء شريط  الأدوات للمستند .



المعذره على كثرة الاسئله الا انني عجزت لإجاد الحلول Huh
الرد }}}
تم الشكر بواسطة:
#2
اتساءل نفس السؤال وكنت اتمني الرد علية من الأخوه الأفاضل ذو الخبرة
الرد }}}
تم الشكر بواسطة:
#3
(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


ارجوا ان قد وصلت المعلومه
الرد }}}
تم الشكر بواسطة:
#4
(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


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

شكرا جزيلا للرد وسوف اقوم بالعمل وان شاء الله نتواصل 
الرد }}}
تم الشكر بواسطة:
#5
مع ضرورة مراعاة إصدار الأوفيس
أوفيس 7 doc
أوفيس 10 dox

وهكذا
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم