WORD-VBA表格处理.pdf

《WORD-VBA表格处理.pdf》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、--删除表格最后一行Sub删除最后一行()IfMsgBox("要为所有表格添加列吗？",vbYesNo+vbQuestion)=vbYesThenFori=1ToActiveDocument.Tables.CountActiveDocument.Tables(i).Rows.Last.DeleteNextMsgBox("完成")ElseMsgBox("任务取消")EndIfEndSub拆分第一行，将第一行拆分成3列Sub拆分第一行()IfMsgBox("是否需要拆分表格第一行？",vbYesNo+vbQuestion)=vbYes

2、ThenFori=1ToActiveDocument.Tables.CountActiveDocument.Tables(i).Cell(1,1).SplitNumRows:=1,NumColumns:=3NextMsgBox("完成")ElseMsgBox("任务取消")EndIfEndSub在表格的最后列插入新列Sub插入最后行()IfMsgBox("是否需要插入最后行？",vbYesNo+vbQuestion)=vbYesThenFori=1ToActiveDocument.Tables.CountActiveDocumen

3、t.Tables(i).Columns.AddNextMsgBox("完成")ElseMsgBox("任务取消")EndIfEndSub使表格自适应列宽Sub自适应列宽()IfMsgBox("是否进行自适应列宽？",vbYesNo+vbQuestion)=vbYesThenFori=1ToActiveDocument.Tables.CountActiveDocument.Tables(i).AutoFitBehavior(wdAutoFitContent)ShowVisualBasicEditor=TrueNextMsgBox("

4、完成")ElseMsgBox("任务取消")EndIfEndSub设置指定列宽度Sub设置每列宽度()IfMsgBox("设置每列宽度？",vbYesNo+vbQuestion)=vbYesThenFori=1ToActiveDocument.Tables.Count'MsgBox(ActiveDocument.Tables(i).Cell(1,1).Range.Text)ActiveDocument.Tables(i).Columns(1).PreferredWidth=40ActiveDocument.Tables(i).Co

5、lumns(2).PreferredWidth=256ActiveDocument.Tables(i).Columns(3).PreferredWidth=150ActiveDocument.Tables(i).Columns(4).PreferredWidth=80ActiveDocument.Tables(i).Columns(5).PreferredWidth=50ActiveDocument.Tables(i).Columns(6).PreferredWidth=50NextMsgBox("完成")ElseMsgBox("

6、任务取消")EndIfEndSub将第一行合并Sub合并第一行()IfMsgBox("合并第一行？",vbYesNo+vbQuestion)=vbYesThenFori=1ToActiveDocument.Tables.CountActiveDocument.Tables(i).Rows(1).SelectSelection.Cells.MergeNextMsgBox("完成")ElseMsgBox("任务取消")EndIfEndSub为指定列表格赋值Sub赋值()IfMsgBox("是否赋值？",vbYesNo+vbQuesti

7、on)=vbYesThenFori=1ToActiveDocument.Tables.CountActiveDocument.Tables(i).Cell(2,4).Range.Text="是否通过"ActiveDocument.Tables(i).Cell(2,5).Range.Text="实际结果"ActiveDocument.Tables(i).Cell(2,6).Range.Text="备注"NextMsgBox("完成")ElseMsgBox("任务取消")EndIfEndSub修改指定列样式Sub样式()DimRown

8、umAsIntegerIfMsgBox("清空？",vbYesNo+vbQuestion)=vbYesThenFori=1ToActiveDocument.Tables.CountActiveDocument.Tables(i).Columns(4