Wordtabelle aus RichtextBox und DataGridView erzeugen

[marob]

Hallo zusammen,

ich möchte aus einer Windows Form eine 3-spaltige Tabelle in Word 2003 erzeugen. In der Form habe ich eine ComboBox die in Spalte1 geschrieben werden soll, eine Richtextbox für Spalte 2, ein Datagridview mit 2 Spalten für Tabellenspalte 2 und 3.

In die Maske sollen immer wieder Eingaben gemacht werden können, und die daraus entstehende Tabelle angehängt werden.

Habe mal 2 Bilder gemacht zur Verdeutlichung.




Das ist mein zusammengefrickelter Code

Dim DataCount As Integer
        DataCount = DataGridView1.RowCount

        Dim oDoc As Microsoft.Office.Interop.Word.Document
        oDoc = frmMain.axWord.ActiveDocument

        With oDoc
            .Tables.Add(Range:=.Application.Selection.Range, NumRows:=DataCount, NumColumns:=3)
            With .Tables(1).Rows()
                .Shading.Texture = Microsoft.Office.Interop.Word.WdTextureIndex.wdTexture5Percent
                With .Borders
                    .InsideLineStyle = Microsoft.Office.Interop.Word.WdLineStyle.wdLineStyleSingle
                    .OutsideLineStyle = Microsoft.Office.Interop.Word.WdLineStyle.wdLineStyleSingle
                End With
            End With
        End With

        oDoc.Tables(1).Rows().Item(DataCount).Cells().Item(1).Range.Text = Me.cboZahl.Text
        oDoc.Tables(1).Rows().Item(DataCount).Cells().Item(2).Range.Text = Me.RichTextBox1.Text
        oDoc.Tables(1).Rows().Item(DataCount + 1).Cells().Item(2).Range.Text = Me.DataGridView1.Rows().Item(1).Cells().Item(1).Value
        oDoc.Tables(1).Rows().Item(DataCount + 1).Cells().Item(3).Range.Text = Me.DataGridView1.Rows().Item(1).Cells().Item(2).Value

hätte jemand ein Tip wie ich das realisieren kann?

Gruß
Marob