新创建的打开的文档中的表格，如何用spire进行操作

[excellency]

Code: Select all

       
        ZWordApplic = New Word.Application
        ZWordApplic.Visible = True
        ZDocument = ZWordApplic.Documents.Add()

        Dim tb1 As Word.Table = ZDocument.Tables.Add(ZWordApplic.Selection.Range, 10, 6)

        For i = 1 To 10
            For j = 1 To 6
                ' tb.Columns.Add(CStr(j))
                tb1.Rows(i).Cells(j).Range.InsertAfter(CStr(i) + "+" + CStr(j))
            Next
        Next

        ZDocument.SaveAs(Application.StartupPath + "\" + "gogo.docx")

        Dim section As Section = ZDocument.Sections(0)                                       ’‘’‘这里报错，                     其他信息: 值不在预期的范围内。
        Dim table As Table = TryCast(section.Tables(0), Table)
        table.ApplyHorizontalMerge(6, 2, 3)
        ZDocument.SaveToFile("gogo.docx")

不知道哪里出错，还是新建的文档里没有Sections。请高手指点。

[Annika.Zhou]

您好，

感谢您的咨询。
根据您提供的代码，我不太清楚您的代码逻辑，且您的代码看起来使用的不是我们的产品。如果您要使用我们的产品对word文件的表格进行编辑，请参考下面的代码：

Code: Select all

...
Dim document As Document = New Document()
document.LoadFromFile("gogo.docx")
Dim section As Section = document.Sections(0)
Dim table As Table = CType(section.Tables(0), Table)
table.ApplyHorizontalMerge(6, 2, 3)
document.SaveToFile("gogo.docx")

Sincerely,
Annika
E-iceblue support team

[excellency]

多谢

[Annika.Zhou]

您好，

不客气！
以后您在使用我们产品时，如果遇到任何其他问题，请随时联系我们。

Sincerely,
Annika
E-iceblue support team