[خالد]

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


أضف المرجع: Microsoft Word xx.x Object Library

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   Dim oWord As New Word.Application

   ' فتح مستند الوورد
   Dim oDoc As Word.Document = oWord.Documents.Open("C:\mydocument.doc")

   'تغيير العلامات المرجعية
   oDoc.Bookmarks.Item("إسم العلامة المرجعية").Range.Text = "النص المراد إدراجه"

   'طباعة المستند
   oWord.PrintOut()

   ' التراجع عن التغييرات
   For i = 1 To 100
       oDoc.Undo()
   Next

   'إغلاق المستند
   oDoc.Close()

   'الخروج من الوورد
   oWord.Quit()

End Sub

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