[سعود الشامان]

ألف شكر لكم , وأنتم ثنائي رائع

أستأذئنكم بهذه الإضافة

يمكن كتابة الكود بصيغة أخرى

كود :

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

            Dim fileName As String = "C:\Users\سعود الشامان\source\repos\Print2\Print2\bin\Debug\test6.dotx"

            Dim myApp1 As New Application

            Dim myDoc1 As New Document

            Me.WindowState = FormWindowState.Minimized

            myDoc1 = myApp1.Documents.Open(fileName)

            myDoc1.Activate()

            Dim bk As Bookmarks = myDoc1.Bookmarks

            bk("dtSubject").Range.Text = DateTimePicker1.Value.Date
            bk("Full").Range.Text = TextBox1.Text
            bk("Name").Range.Text = TextBox2.Text

    End Sub

شرح الطريقة بالفيديو من الاستاذ خالد السعداني

إرسال البيانات من الفيجوال بيسك إلى ميكروسوفت وورد

https://youtu.be/andDjzYHHC4