主题：一行一行的添加很费时间，如果一次性添加多行？

 Dim app As New MSWord.Application

Try

    Dim doc = app.Documents.Open(ProjectPath & "Attachments\报表模板\检测报告.docx")  '签名的文档

    Static p As TimeSpan

    Dim da As Date = Date.Now

    With Doc.Content.Tables(1)

        For dri As Integer = 0 To 300

            .Rows.Add() '增加一行

        Next

    End With

    p = Date.Now - da

    output.show( p.TotalSeconds)

    app.Visible = True

Catch ex As Exception

End Tryext