WORD文档中的表格：自定义方式的批处理，增删行列和内容

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