Sub 表格单元格替换文字() If MsgBox("确定要替换单元格的文字吗?", vbYesNo + vbQuestion) = vbYes Then For i = 1 To ActiveDocument.Tables.Count With ActiveDocument.Tables(i).Cell(Row:=2, Column:=2).Range .Delete .InsertAfter Text:="XXX" End With With ActiveDocument.Tables(i).Cell(Row:=13, Column:=2).Range .Delete .InsertAfter Text:="与预期结果一致" End With With ActiveDocument.Tables(i).Cell(Row:=14, Column:=2).Range .Delete .InsertAfter Text:="通过" End With With ActiveDocument.Tables(i).Cell(Row:=15, Column:=2).Range .Delete .InsertAfter Text:="无" End With With ActiveDocument.Tables(i).Cell(Row:=16, Column:=2).Range .Delete .InsertAfter Text:="XXX" End With With ActiveDocument.Tables(i).Cell(Row:=17, Column:=4).Range .Delete .InsertAfter Text:="2014-11-20" End With Next MsgBox ("操作完成!") Else MsgBox ("操作取消!") End If End Sub
转载于:https://www.cnblogs.com/zjwia/p/5403452.html