0

这似乎是重复的，但没有其他解决方案对我有用。我想在文档中一个接一个地插入表格，而不是在前一个表格的第一个单元格中插入一个表格。

这是我的代码。愚蠢的评论行数量让我绝望。

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

更新 1： tbRange.InsertBreak() 类型的作品，如果我忽略每个中断插入的 empy 页面。上面的代码实际上将表格插入到第二个单元格中，这是我能做的最多的事情。

4

0 回答 0