随笔分类 -  其它

摘要：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... 阅读全文

摘要：Sub 表格单元格替换文字() If MsgBox("确定要替换单元格的文字吗？", vbYesNo + vbQuestion) = vbYes Then For i = 1 To ActiveDocument.Tables.Count With ActiveDocument.Tables(i).Cell(Row:=2, Column:=2).Range ... 阅读全文

摘要：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... 阅读全文