以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  拷贝word中Table2(2)到下一页  (http://foxtable.com/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