24-08-17, 08:04 AM
(آخر تعديل لهذه المشاركة : 26-08-17, 02:28 AM {2} بواسطة 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