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（）有用，如果我忽略为每个中断插入的empy页面。上面的代码实际上是在第二个单元格中插入表格，这是我能做的最多。

如何在word文档中插入多个表

0 个答案: