在银行管理工作中,企业询证函中有表格,原表格只有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表格增加行数