导出数据时给word表格增加行数

时　间:2017-01-17 13:12:57
作　者:张志   ID：8  城市：上海  QQ：2851379730
摘　要:给指定的word文件，根据导出记录的多少，增加行数，以满足填写需要。
正　文:

     在银行管理工作中，企业询证函中有表格，原表格只有2行，由于有时侯超过了2行记录，输出记录到word文件中时需要增加表格的行数。
    主要代码如下：

    Dim objApp As Object    'Word.Application
    Dim objDoc As Object    'Word.Document
    Dim objTable As Object    'Word.Table
    Dim strTemplates As String
    Dim Table As Object
    Dim rs As Object
    Dim i As Integer
    strTemplates = CurrentProject.Path & "\企业询证函1.doc"
    If Dir(strTemplates) = "" Then
        MsgBox "当前文件夹下缺少企业询证函1.doc", vbCritical, "提示"
        Exit Sub
    End If
    Set objApp = CreateObject("Word.Application")
    objApp.Visible = False    '不显示word文件
    Set objDoc = objApp.Documents.Open(strTemplates, , False)
    '给所有表格增加3行
    For i = 1 To objDoc.Tables.Count
        Set rs = objDoc.Tables(i).Rows    'i 代表第几个表格
        Dim l As Integer
        For l = 1 To 3    '3代表增加3行
            rs.Add rs(rs.Count)
        Next
    Next
    objApp.Visible = True    '显示Word文件
    Set objApp = Nothing
    Set objDoc = Nothing
    Set objTable = Nothing

    示例下载：给word表格增加行数