الطباعة على الوورد من خلال الفيجوال بطريقة مبسطة

كود :

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()

كود :

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

        'الاشارة المرجعية بالانجليزي بوك ماركس كما هو في الاعلى

        '================التعامل مع الجدول 

        Dim nnsss As Integer = DataGridView1.RowCount ' هنا لعدد الصفوف في الداتا قريد

        For ta1 As Integer = 2 To nnsss  ' لاحظ اننا بدئنا بالرقم 2 لاننا راح نتعامل مع الصف الثاني بالجدول

            aplication.Application.ActiveDocument.Tables.Item(1).Cell(ta1, 2).Select() ' هنا اخبرنا البرنامج بالذهاب ألى الجدول الأول الصف الثاني فما بعد العمود الثاني الأسم 

            aplication.Selection.Text = DataGridView1.Rows(ta1 - 2).Cells(1).Value ' هنا اخذنا سالب 2 حتى نبدا من الصفر

            aplication.Application.ActiveDocument.Tables.Item(1).Cell(ta1, 3).Select() ' العود الثالث الدولة

            aplication.Selection.Text = DataGridView1.Rows(ta1 - 2).Cells(1).Value

            aplication.Application.ActiveDocument.Tables.Item(1).Cell(ta1, 4).Select() ' العود الرابع 

            aplication.Selection.Text = DataGridView1.Rows(ta1 - 2).Cells(2).Value

            If ta1 <> nnsss Then ' هنا اذا كان الرقم لايساوي عدد الدتا قريد

                aplication.Application.ActiveDocument.Tables.Item(1).Rows.Add() ' اضف صف جديد

            End If



        Next



        '===================== 

        'الان بقي اظهار الملف لانه حتى الان يعمل بالخفى وتسطيع اظهاره بعد فتح الملف

        aplication.Visible = True

        aplication.Activate()