2016年4月18日
VBA删除表格最后一行
摘要： Sub 删除最后一行() If MsgBox("要为所有表格添加列吗？", vbYesNo + vbQuestion) = vbYes Then For i = 1 To ActiveDocument.Tables.Count ActiveDocument.Tables(i).Rows.Last.Delete Next MsgBox ("完成") Else MsgBox ("任务取消") End... 阅读全文
posted @ 2016-04-18 10:27 ZOWIE 阅读(1457) 评论(0) 推荐(0)
VBA表格单元格替换文字
摘要： Sub 表格单元格替换文字() If MsgBox("确定要替换单元格的文字吗？", vbYesNo + vbQuestion) = vbYes Then For i = 1 To ActiveDocument.Tables.Count With ActiveDocument.Tables(i).Cell(Row:=2, Column:=2).Range ... 阅读全文
posted @ 2016-04-18 10:26 ZOWIE 阅读(1099) 评论(0) 推荐(0)
VBA添加表格
摘要： 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... 阅读全文
posted @ 2016-04-18 10:23 ZOWIE 阅读(891) 评论(0) 推荐(0)