摘要:
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)
摘要:
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)
摘要:
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)
浙公网安备 33010602011771号