Sub 添加表格() ' If MsgBox("要为所有表格添加列吗？", vbYesNo + vbQuestion) = vbYes Then For i = 1 To ActiveDocument.Tables.Count Dim myTable As Table Set myTable = ActiveDocument.Tables(i) myTable.Rows.Last.Select Selection.InsertRowsBelow 1 Selection.Collapse Direction:=wdCollapseStart Selection.TypeText Text:="实际结果" Selection.MoveRight Unit:=wdCell Selection.TypeText Text:="与期望结果一致" Selection.MoveRight Unit:=wdCell Selection.TypeText Text:="测试结果" Selection.MoveRight Unit:=wdCell Selection.Cells.Split NumRows:=1, NumColumns:=3, MergeBeforeSplit:=False Selection.MoveRight Unit:=wdCell Selection.TypeText Text:="通过" Selection.SelectCell Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter Selection.SelectCell Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter Selection.MoveRight Unit:=wdCell Selection.TypeText Text:="缺陷编号" Selection.SelectCell Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter Selection.MoveRight Unit:=wdCell Selection.MoveRight Unit:=wdCell Selection.TypeText Text:="备注" Selection.MoveRight Unit:=wdCell Selection.MoveRight Unit:=wdCharacter, Count:=3, Extend:=wdExtend Selection.Cells.Merge Selection.MoveRight Unit:=wdCell Selection.TypeText Text:="测试人" Selection.MoveRight Unit:=wdCell Selection.Cells.Split NumRows:=1, NumColumns:=3, MergeBeforeSplit:=False Selection.MoveRight Unit:=wdCell Selection.TypeText Text:="XXX" Selection.SelectCell Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter Selection.MoveRight Unit:=wdCell Selection.TypeText Text:="测试日期" Selection.SelectCell Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter Selection.MoveRight Unit:=wdCell Selection.TypeText Text:="2016-4-18" Selection.MoveLeft Unit:=wdCharacter, Count:=1 Selection.MoveUp Unit:=wdLine, Count:=1 Selection.TypeText Text:="无" Selection.SelectCell Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter Selection.MoveDown Unit:=wdLine, Count:=1 Selection.MoveRight Unit:=wdCharacter, Count:=5 Selection.SelectCell Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter Next MsgBox ("完成") Else MsgBox ("任务取消") End If End Sub