[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

[waelalmsry75]

(24-08-17, 08:04 AM)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

تذكير للإخوة الكرام

[waelalmsry75]

(25-08-17, 03:21 AM)waelalmsry75 كتب :

(24-08-17, 08:04 AM)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

تذكير للإخوة الكرام

الإخوة الكرام الخبراء.. أين هم؟
أتصور أن هذا الكود ليس صعبا بالنسبة لكم
أسأل الله أن يبارك فيكم ويوفقكم لما يحب ويرضى

[waelalmsry75]

(26-08-17, 02:25 AM)waelalmsry75 كتب :

(25-08-17, 03:21 AM)waelalmsry75 كتب :

(24-08-17, 08:04 AM)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

تذكير للإخوة الكرام

الإخوة الكرام الخبراء.. أين هم؟
أتصور أن هذا الكود ليس صعبا بالنسبة لكم
أسأل الله أن يبارك فيكم ويوفقكم لما يحب ويرضى

تذكير

[waelalmsry75]

السلام عليكم
الإخوة الكرام
هل الكود المطلوب غير ممكن  
لو كان غير ممكن فياريت حد يرد ويعرفني

ولو كان ممكن فياريت برده حد يعرفني انه ممكن وليس مستحيل

وجزى الله خيرا من اهتم بهذا الأمر

[الحاكم]

(27-08-17, 11:58 PM)waelalmsry75 كتب : السلام عليكم
الإخوة الكرام
هل الكود المطلوب غير ممكن  
لو كان غير ممكن فياريت حد يرد ويعرفني

ولو كان ممكن فياريت برده حد يعرفني انه ممكن وليس مستحيل

وجزى الله خيرا من اهتم بهذا الأمر

الكود ممكن وانا قعدت اسبوع وانا ابحث وكانت نفس مشكلتي واعطيك دالة تقوم بتصدير البيانات من الداتا قريد فيو إلى جدول في ملف وورد

كود :

Private Sub testisstableword()
       Try
           Dim objWord As Application
           Dim objDoc As Document
           Dim objTable As Table
           objWord = CreateObject("Word.Application")
           objWord.Visible = True
           objDoc = objWord.Documents.Add
           Dim _RowCount As Integer = DataGridView1.RowCount - 1 ' تعريف صفوف الجدول
           Dim _ColCount As Integer = DataGridView1.ColumnCount - 1 ' تعريف اعمدة الجدول
           Dim r As Integer, c As Integer

           objTable = objDoc.Tables.Add(objDoc.Bookmarks.Item("\endofdoc").Range, _RowCount + 1, _ColCount + 1)
           objTable.Range.ParagraphFormat.SpaceAfter = 6
           For r = 0 To _RowCount
               For c = 0 To _ColCount
                   objTable.Cell(r + 1, c + 1).Range.Text = DataGridView1.Rows(r).Cells(c).Value.ToString()
               Next
           Next
           objTable.Rows.Item(1).Range.Font.Bold = True
           objTable.Rows.Item(1).Range.Font.Italic = True

           objTable.Borders.OutsideColor = WdColor.wdColorBlack
           objTable.Borders.OutsideLineStyle = WdLineStyle.wdLineStyleSingle
           objTable.Borders.InsideColor = WdColor.wdColorBlack
           objTable.Borders.InsideLineStyle = WdLineStyle.wdLineStyleSingle
           ' objTable.Borders.Shadow = True
           '  Me.Close()

           ' objDoc.SaveAs2("d:/tee.docx")
           '   SFD.Filter = "ملفات ورد|*.docx"
           ' If SFD.ShowDialog = System.Windows.Forms.DialogResult.OK Then
           objDoc.Save()
           '  End If
           objDoc.Close()
           objWord.Quit()

           System.Runtime.InteropServices.Marshal.ReleaseComObject(objWord)
           System.Runtime.InteropServices.Marshal.ReleaseComObject(objDoc)

           objDoc = Nothing
           objWord = Nothing
           GC.Collect()
           GC.WaitForFullGCComplete()

       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub

[sendbad100]

وعليكم السلام

تايع هذا الموضوع قد يفيدك

http://vb4arb.com/vb/showthread.php?tid=24652&highlight=%D9%88%D9%88%D8%B1%D8%AF

[tarek]

بكل بساطه اعمل تقرير reportviewer وحتلاقي رمز تصدير لوورد واكسيل و بي دي اف

[han]

(11-05-18, 03:23 PM)tarek كتب : بكل بساطه اعمل تقرير reportviewer وحتلاقي رمز تصدير لوورد واكسيل و بي دي اف

كيف ؟

[عبد العزيز البسكري]

(16-05-18, 04:12 AM)han كتب :

(11-05-18, 03:23 PM)tarek كتب : بكل بساطه اعمل تقرير reportviewer وحتلاقي رمز تصدير لوورد واكسيل و بي دي اف

كيف ؟