vb.net - Word文書に複数の表を挿入する方法

Question

これは重複しているように見えるかもしれませんが、他の解決策はどれもうまくいきませんでした。前のテーブルの最初のセル内にテーブルを挿入するのではなく、ドキュメントにテーブルを挿入したいと考えています。

これが私のコードです。コメントされた行のばかげた量は、私が必死になっていることです。

Dim bmMain As Bookmark = AnexaDoc.Bookmarks("Content")
'Dim tbRanges As New List(Of Range)
Dim tbRange As Range = bmMain.Range
tbRange.InsertParagraphAfter()
For i = 0 To Imobile.Count - 1

    tabelSuprafata = AnexaDoc.Tables.Add(tbRange.Next(WdUnits.wdParagraph), Imobile(i).Geometry.NumberOfVertices + 1, 3)

    With tabelSuprafata
        .Cell(1, 1).Range.Text = "Nr."
        .Cell(1, 2).Range.Text = "Nord"
        .Cell(1, 3).Range.Text = "Est"
        .ApplyStyleHeadingRows = True
        For r = 2 To .Rows.Count
            .Cell(r, 1).Range.Text = (r - 1).ToString
            .Cell(r, 2).Range.Text = Me.Imobile(i).Geometry.GetPoint2dAt(r - 2).Y.ToString
            .Cell(r, 3).Range.Text = Me.Imobile(i).Geometry.GetPoint2dAt(r - 2).X.ToString
        Next
    End With
    tabelSuprafata.Borders.InsideLineStyle = WdLineStyle.wdLineStyleSingle
    tabelSuprafata.Borders.OutsideLineStyle = WdLineStyle.wdLineStyleSingle
    'tabelSuprafata.Range.Collapse(Direction:=WdCollapseDirection.wdCollapseEnd)
    'tabelSuprafata.Range.InsertParagraphAfter()
    'tbRange.InsertParagraphAfter()
    'tabelSuprafata.Range.Collapse(Direction:=WdCollapseDirection.wdCollapseEnd)
    'tabelSuprafata.Range.Select()
    tbRange.Collapse(Direction:=WdCollapseDirection.wdCollapseEnd)
    tbRange.InsertParagraphAfter()
    tbRange.Collapse(Direction:=WdCollapseDirection.wdCollapseEnd)
    'tbRange.Select()
    'tbRange.EndOf(WdUnits.wdTable, WdMovementType.wdMove)
    'tbRange.EndOf(WdUnits.wdParagraph, WdMovementType.wdMove)

    'tbRange = tbRange.Next(WdUnits.wdParagraph)

Next

Update1: tbRange.InsertBreak() の種類は、ブレークごとに挿入された空のページを無視すると機能します。上記のコードは、実際に 2 番目のセルにテーブルを挿入します。これが、私ができる最大限のことです。