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
            .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