Sub TabelleUndText(AppWord As Microsoft.Office.Interop.Word.Application, wdDoc As Microsoft.Office.Interop.Word.Document)
...
Dim TMRange As Object
wdDoc.Bookmarks("bookmark").Select()
TMRange = AppWord.ActiveDocument.Bookmarks("bookmark").Range
TMRange.InsertBreak(6)
Appword.Selection.Next
AppWord.ActiveDocument.Bookmarks.Add("bookmark1", TMRange)
TMRange = AppWord.ActiveDocument.Bookmarks("bookmark").Range
TMRange.Text = "Text über Tabelle"
Dim wdTable As Object
Dim iNumRows As Integer
Dim iNumColumns As Integer
iNumRows = 9
iNumColumns = 2
wdTable = wdDoc.Tables.Add(AppWord.ActiveDocument.Bookmarks("bookmark1").Range, NumRows:=iNumRows, NumColumns:=iNumColumns)
...
End Sub