WORD文档中的表格:自定义方式的批处理,增删行列和内容;
大家有没有遇到需要处理WORD文档中的表格,表格多,需要大量的重复性工作;
office提供了宏录制方式,可以编辑风格,内容,但是针对增删表格却不好处理,没关系,WORD还支持VB语言的定制处理,可以针对每一个对象的处理,当然也可以批量处理。
开发工具---> Visual Basic :
用户窗体--->模块
示例代码如下,可参考:
Option Explicit
Sub addd()
Dim tbl As Table
Application.ScreenUpdating = False
For Each tbl In ActiveDocument.Tables
'为了过滤掉可能不是测试用例的表格
If tbl.Rows.Count >= 8 And tbl.Columns.Count = 1 Then
'添加3行,在首列前添加1列
'tbl.Rows.Add BeforeRow:=tbl.Rows(5)
'tbl.Rows.Add BeforeRow:=tbl.Rows(5)
'tbl.Rows.Add BeforeRow:=tbl.Rows(5)
'tbl.Columns.Add BeforeColumn:=tbl.Columns(1)
tbl.AutoFitBehavior (wdAutoFitContent)
End If
'If tbl.Rows.Count >= 8 And tbl.Columns.Count = 2 Then
'添加3行,在首列前添加1列
' tbl.Rows.Add BeforeRow:=tbl.Rows(5)
' tbl.Rows.Add BeforeRow:=tbl.Rows(5)
' tbl.Rows.Add BeforeRow:=tbl.Rows(5)
'tbl.Columns.Add BeforeColumn:=tbl.Columns(1)
' tbl.AutoFitBehavior (wdAutoFitContent)
'End If
'设置首列固定宽度
tbl.Columns(1).Width = 60
'设置首列对应的内容
tbl.Cell(Row:=1, Column:=1).Range.Text = "用例编号"
tbl.Cell(Row:=2, Column:=1).Range.Text = "用例名称"
tbl.Cell(Row:=3, Column:=1).Range.Text = "测试目的"
tbl.Cell(Row:=4, Column:=1).Range.Text = "预置条件"
tbl.Cell(Row:=5, Column:=1).Range.Text = "测试点"
tbl.Cell(Row:=6, Column:=1).Range.Text = "样本点"
tbl.Cell(Row:=7, Column:=1).Range.Text = "测试环境"
tbl.Cell(Row:=8, Column:=1).Range.Text = "测试步骤"
tbl.Cell(Row:=9, Column:=1).Range.Text = "预期结果"
tbl.Cell(Row:=10, Column:=1).Range.Text = "测试结果"
tbl.Cell(Row:=10, Column:=2).Range.Text = ""
tbl.Cell(Row:=11, Column:=1).Range.Text = "测试结论"
tbl.Cell(Row:=11, Column:=2).Range.Text = "通过[ ] 未通过[ ] 未测[ ]"
tbl.Cell(Row:=12, Column:=1).Range.Text = "备注"
Next
Application.ScreenUpdating = True
End Sub