[tryold]

شكرا لك عزيزي

وبارك الله فيك وفي علمك

على العموم ماضبط معي  

انا لم استخدم اي كود من اكواد شرح الأخ عبدالله الدوسري او اي كلاس 
ما عدى الرفرينس اللي هو Interop.Word.dll   فقط وبنيت الكود هكذا :

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


       Static wd1 As Word.Application
       Static wd1Doc As Word.Document
       wd1 = New Word.Application
       wd1.Visible = True
      wd1Doc = wd1.Documents.Add(Application.StartupPath & "\DocFiles\DocPrint.dotx") 'path of do




       With wd1Doc

           .Bookmarks.Item("txtFname").Range.Text = txtFname.Text
           .Bookmarks.Item("txtLname").Range.Text = txtLname.Text
           .Bookmarks.Item("txttel").Range.Text = txttel.Text
           .Bookmarks.Item("CombCity").Range.Text = CombCity.Text
           .Bookmarks.Item("CombGroub").Range.Text = CombGroub.Text
           .Bookmarks.Item("txtPosts").Range.Text = txtPosts.Text
           .Bookmarks.Item("txtPoints").Range.Text = txtPoints.Text

' هنا اريد كود الصوره مثل البقية



     End With

       wd1 = Nothing
       wd1Doc = Nothing
   End Sub