[elgokr]

وعليكم السلام ورحمة الله وبركاته

اهلاً بك اخى جيولوجي مبتدئ

بخصوص الكود داخل الزر

قم باستخدام الكود بهذا الشكل

كود :

       Dim Filename As String = "D:\visual3\test.dotx"
       Dim myapp1 As New Object
       Dim mydoc1 As New Object
       myapp1 = CreateObject("Word.Application")
       mydoc1 = myapp1.documents.open(Filename)
       Dim bk As Bookmarks = mydoc1.Bookmarks
       Dim last As Integer = DataGridView1.Rows.Count - 1
       Dim m As Integer = 0
       mydoc1 = myapp1.Documents.Open(Filename)
       'objWordDotx.tables.add(objWordDotx.range(0, 0), DataGridView1.Rows.Count, 3)

       For ii As Integer = 0 To DataGridView1.Rows.Count - 1
           bk(ii)("name").Range.Text = DataGridView1.Rows(ii).Cells("ar_name").Value
           bk(ii)("idnum").Range.Text = DataGridView1.Rows(ii).Cells("idnum").Value
           bk(ii)("code").Range.Text = DataGridView1.Rows(ii).Cells("idNumber").Value
       Next
       myapp1.visible = True

وان شاء الله سيعمل معاك بدون اى مشكلة

أو اتمنى ارفاق المشروع فى حالة لم يعمل الكود حتى يتم اختبار الكود الكلى بعد التعديل

واعادة رفعه لك مجدداً لا وكذلك ملف dotx

تحياتى لك

وتمنياتى لك التوفيق