以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  拷贝word中Table2(2)到下一页  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186480)
--  作者：xluoping
--  发布时间：2023/5/6 11:46:00
--  拷贝word中Table2(2)到下一页
word中我有两个表格，其中第一个表格不管记录有多少条，只要一个，

第二个表格Table2(2)，根据记录的n条数，需要在下一节复制n个

Dim app As New MSWord.Application
Try
    Dim doc = app.Documents.Open(ProjectPath & "Attachments\\报表模板\\检测报告单和数据处理\\模板一\\" & biaogem & ".docx")  \'签名的文档
    With Doc.Content.Tables(1)
    ....
    End With

    For i As  Integer = 0 To jilu.Count - 1
    插入节，并拷贝表格 Doc.Content.Tables(2)   ？
    Next
 ....
    doc.saveas(fl,MSWord.WdSaveFormat.wdFormatDocumentDefault)
    doc.Close()
    app.Quit
Catch ex As Exception
End Try
--  作者：有点蓝
--  发布时间：2023/5/6 12:03:00
--  
参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=70762&skin=0