[abdullah]

بسم الله الرحمن الرحيم

في البداية الشكر موصول للجميع وبالاخص الاستاذ / عبدالله الدوسري , لانه هو صاحب الموضوع في الاساس .
وانصح بزيارة قناة الاخ عبدالله الدوسري باليوتيوب فهناك شرح مطول ومفصل عن الطباعة بالوورد
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
-----------------------------
اتمنى ان قد وفقت بالشرح

والسلام عليكم