Dim ZeilenNr As Short = 1
        ' Try
        WdApp = New Wd.Application
        Dim WdDoc As Wd.Document = WdApp.Documents.Add(Template:="Dok1.dotx")
        WdApp.Visible = True
        With WdDoc
            .Bookmarks("Firma").Range.Text = R.FirmenName
            .Bookmarks("Anschrift").Range.Text = R.Adresse
            .Bookmarks("PLZ").Range.Text = R.PLZ
            .Bookmarks("Ort").Range.Text = R.Ort
            .Bookmarks("Land").Range.Text = R.Land
            .Bookmarks("Nummer").Range.Text = R.AuftragNr
 
            ' Jetzt Bestellungen in Tabelle eintragen
            Dim Tw As Wd.Table = WdDoc.Tables(1)
            Dim Tr As Wd.Row
            For Each Drow As DataRow In TaOrders.Rows
                Tr = Tw.Rows.Add()
                ZeilenNr += 1
                ' Jetzt die Zellen eintragen
                Tr.Cells(1).Range.Text = Drow.Item("ProductID")
                Tr.Cells(2).Range.Text = Drow.Item("UnitPrice")
                Tr.Cells(3).Range.Text = Drow.Item("Quantity")
                Tr.Cells(4).Range.Text = Drow.Item("Discount")
                Tr.Cells(5).Formula("=B" & CType(ZeilenNr, String) & "*C" & _
                  CType(ZeilenNr, String) & "*(1-(D" & CType(ZeilenNr, String) _
                  & "/100))", NumFormat:="#.##0,00 €;(#.##0,00 €)")
            Next
        End With

The World is Yours!