[VB.NET] طلب كود تصدير بيانات داتا جريد فيو إلى وورد

كود :
Public Sub ExportToWord(ByVal dgv As DataGridView, Heading As String)

        Dim oWord As Word.Application = DirectCast(CreateObject("Word.Application"), Word.Application)

        Dim oDoc As Word.Document = oWord.Documents.Add()

        'Insert a paragraph at the beginning of the document.

        Dim oPara1 As Word.Paragraph

        oPara1 = oDoc.Content.Paragraphs.Add

        oPara1.Range.Text = Heading

        oPara1.Alignment = WdParagraphAlignment.wdAlignParagraphCenter

        oPara1.Range.InsertParagraphAfter()

        '-------------------------

        Dim headers = (From ch In dgv.Columns _

                      Let header = DirectCast(DirectCast(ch, DataGridViewColumn).HeaderCell, DataGridViewColumnHeaderCell) _

                      Select header.Value).ToArray()

        Dim headerText() As String = Array.ConvertAll(headers, Function(v) v.ToString)

        Dim items() = (From r In dgv.Rows Let row = DirectCast(r, DataGridViewRow) Where Not row.IsNewRow _

         Select (From cell In row.Cells Let c = DirectCast(cell, DataGridViewCell) Select c.Value).ToArray()).ToArray()

        Dim table As String = String.Join(vbTab, headerText) & Environment.NewLine

        For Each a In items

            Dim t() As String = Array.ConvertAll(a, Function(v) v.ToString)

            table &= String.Join(vbTab, t) & Environment.NewLine

        Next

        table = table.TrimEnd(CChar(Environment.NewLine))

        Clipboard.SetText(table)

        Dim oTable As Word.Table = oDoc.Tables.Add(oDoc.Bookmarks.Item("\endofdoc").Range, items.Count + 1, headers.Count)

        oTable.Range.Paste()

        oTable.TableDirection = WdTableDirection.wdTableDirectionRtl

        'make the first row bold, fs 14 + change textcolor

        oTable.Rows.Item(1).Range.Font.Bold = &H98967E

        oTable.Rows.Item(1).Range.Font.Size = 14

        oTable.Rows.Item(1).Range.Font.Color = Word.WdColor.wdColorWhite

        'change backcolor of first row

        oTable.Rows.Item(1).Range.Shading.Texture = Word.WdTextureIndex.wdTextureNone

        oTable.Rows.Item(1).Range.Shading.ForegroundPatternColor = Word.WdColor.wdColorAutomatic

        oTable.Rows.Item(1).Range.Shading.BackgroundPatternColor = Word.WdColor.wdColorPaleBlue

        oTable.Borders.OutsideColor = Word.WdColor.wdColorBlack

        oTable.Borders.OutsideLineStyle = Word.WdLineStyle.wdLineStyleSingle

        oTable.Borders.InsideColor = Word.WdColor.wdColorBlack

        oTable.Borders.InsideLineStyle = Word.WdLineStyle.wdLineStyleSingle

        oWord.Visible = True

    End Sub