[waelalmsry75]

السلام عليكم
الإخوة الكرام
الكود التالي يقوم بتصدير صف واحد من الداتا جريد في ملف وورد عن طريق البوك مارك
وأريد تصدير كل صفوف الداتا جريد
فأرجو التعديل على الكود بما يلزم
وجزاكم الله خيرا

كود :

Try
           Dim filename As String = "I:\sample.dotx"
           Dim myapp1 As New Application
           Dim mydoc1 As New Document
           mydoc1 = myapp1.Documents.Open(filename)
           mydoc1.Activate()
           Dim bk As Bookmarks = mydoc1.Bookmarks
           bk("text1").Range.Text = text1.Text
           bk("text2").Range.Text = text2.Text
           bk("text3").Range.Text = text3.Text
           bk("text4").Range.Text = text4.Text
           bk("text5").Range.Text = text5.Text
           Catch ex As Exception
           Exit Sub
           End Try