25-09-12, 11:27 AM
(آخر تعديل لهذه المشاركة : 26-09-12, 10:54 AM {2} بواسطة Ahmad Jawad.)
بسم الله الرحمن الرحيم
في البداية الشكر موصول للجميع وبالاخص الاستاذ / عبدالله الدوسري , لانه هو صاحب الموضوع في الاساس .
وانصح بزيارة قناة الاخ عبدالله الدوسري باليوتيوب فهناك شرح مطول ومفصل عن الطباعة بالوورد
http://www.youtube.com/user/AbdullaAlDosari
اليوم حبيت اختصر الموضوع بطريقة قد تكون مبسطة , حتى يكون لدى المتلقي عدة مراجع عربية
اولا كما هو معروف تصميم قالب بالوورد
الصورة الأول في الوورد تصميم قالب واعطائه اشاراة مرجعية ( يجدر بالذكر الاشارة المرجعية هي عبارة عن مكان يكون لك مرجع داخل الملف ويضع مؤشر الكتابة امامه ليقول لك اكتب )
[ATTACH=CONFIG]225[/ATTACH]
ثانيا حفظ الملف كقالب ( تمبلت )
[ATTACH=CONFIG]227[/ATTACH]
--------------------------------
الان ناتي للفيجوال
اولا فتح مشروع ومن حفظ ملف القالب الوورد داخل مجلد bin ونسمية Word
ثانيا نستدعي مكتبة التعامل مع الوورد
[ATTACH=CONFIG]226[/ATTACH]
ثالثا
Microsoft.Office.Interop.Word
على حسب اصدار الاوفس الموجود في جهاز وقد تجد اكثر من اصدار .
كما هو في الصورة
[ATTACH=CONFIG]228[/ATTACH]
رابعا / ضبط الفورم على حسب ماتريد انا جعلته بسيط عبارة عن 2 تكست .
[ATTACH=CONFIG]229[/ATTACH]
خمسا في حدث اطبع نظع الكود التالي :
الصورة التالية توضح الكود
[ATTACH=CONFIG]230[/ATTACH]
سادساً / شغل البرنامج واطبع
[ATTACH=CONFIG]231[/ATTACH]
الجدير بالذكر انه يمكن التعامل مع ملف الوورد بأوامر كثيرة ولكن حبيت اتطرق لموظوع الاشارة المرجعية .
ثامناً / انتهت الشرح
(الشرح بفيجوال 2010 واوفس 2010 )
المرفق فيجوال 2010
-----------------------------
اتمنى ان قد وفقت بالشرح
والسلام عليكم
في البداية الشكر موصول للجميع وبالاخص الاستاذ / عبدالله الدوسري , لانه هو صاحب الموضوع في الاساس .
وانصح بزيارة قناة الاخ عبدالله الدوسري باليوتيوب فهناك شرح مطول ومفصل عن الطباعة بالوورد
http://www.youtube.com/user/AbdullaAlDosari
اليوم حبيت اختصر الموضوع بطريقة قد تكون مبسطة , حتى يكون لدى المتلقي عدة مراجع عربية
اولا كما هو معروف تصميم قالب بالوورد
الصورة الأول في الوورد تصميم قالب واعطائه اشاراة مرجعية ( يجدر بالذكر الاشارة المرجعية هي عبارة عن مكان يكون لك مرجع داخل الملف ويضع مؤشر الكتابة امامه ليقول لك اكتب )
[ATTACH=CONFIG]225[/ATTACH]
ثانيا حفظ الملف كقالب ( تمبلت )
[ATTACH=CONFIG]227[/ATTACH]
--------------------------------
الان ناتي للفيجوال
اولا فتح مشروع ومن حفظ ملف القالب الوورد داخل مجلد bin ونسمية Word
ثانيا نستدعي مكتبة التعامل مع الوورد
[ATTACH=CONFIG]226[/ATTACH]
ثالثا
Microsoft.Office.Interop.Word
على حسب اصدار الاوفس الموجود في جهاز وقد تجد اكثر من اصدار .
كما هو في الصورة
[ATTACH=CONFIG]228[/ATTACH]
رابعا / ضبط الفورم على حسب ماتريد انا جعلته بسيط عبارة عن 2 تكست .
[ATTACH=CONFIG]229[/ATTACH]
خمسا في حدث اطبع نظع الكود التالي :
كود :
Dim aplication As New Microsoft.Office.Interop.Word.Application 'لتعامل مع ملف الوورد
Dim appDoc As New Microsoft.Office.Interop.Word.Document 'لفتح ملف الوورد
appDoc = aplication.Documents.Add(Template:=(Application.StartupPath & "\word\نموذج.dot")) ' هذا الامر لفتح ملف نموذج كقالب تمبلت وهذا مهم
'========
'لو كان الامر فتح ملف وورد فالوضع مختلف :رايح يكون الامر كتالي ولكن بدون تفعيل الامر
'appDoc = app.Documents.Open(Application.StartupPath & "\word\نموذج.doc")
'=======
'للتعامل مع الملف الوورد
aplication.ActiveDocument.Bookmarks("s1").Select() ' ابحث لي عن الاشارة المرجعية وضع المؤشر امامها
aplication.Selection.Text = TextBox1.Text
aplication.ActiveDocument.Bookmarks("s2").Select() ' ابحث لي عن الاشارة الاخر المرجعية وضع المؤشر امامها
aplication.Selection.Text = TextBox2.Text
'الاشارة المرجعية بالانجليزي بوك ماركس كما هو في الاعلى
'=====================
'الان بقي اظهار الملف لانه حتى الان يعمل بالخفى وتسطيع اظهاره بعد فتح الملف
aplication.Visible = True
aplication.Activate()
الصورة التالية توضح الكود
[ATTACH=CONFIG]230[/ATTACH]
سادساً / شغل البرنامج واطبع
[ATTACH=CONFIG]231[/ATTACH]
الجدير بالذكر انه يمكن التعامل مع ملف الوورد بأوامر كثيرة ولكن حبيت اتطرق لموظوع الاشارة المرجعية .
ثامناً / انتهت الشرح
(الشرح بفيجوال 2010 واوفس 2010 )
المرفق فيجوال 2010
-----------------------------
اتمنى ان قد وفقت بالشرح
والسلام عليكم