VBA表格单元格替换文字

Sub 表格单元格替换文字()
   If MsgBox("确定要替换单元格的文字吗？", vbYesNo + vbQuestion) = vbYes Then
    For i =  To ActiveDocument.Tables.Count
        With ActiveDocument.Tables(i).Cell(Row:=, Column:=).Range
            .Delete
            .InsertAfter Text:="XXX"
        End With

With ActiveDocument.Tables(i).Cell(Row:=, Column:=).Range
            .Delete
            .InsertAfter Text:="与预期结果一致"
        End With

With ActiveDocument.Tables(i).Cell(Row:=, Column:=).Range
            .Delete
            .InsertAfter Text:="通过"
        End With

 With ActiveDocument.Tables(i).Cell(Row:=, Column:=).Range
            .Delete
            .InsertAfter Text:="无"
        End With

 With ActiveDocument.Tables(i).Cell(Row:=, Column:=).Range
            .Delete
            .InsertAfter Text:="XXX"
        End With

 With ActiveDocument.Tables(i).Cell(Row:=, Column:=).Range
            .Delete
            .InsertAfter Text:="2014-11-20"
        End With

    Next
        MsgBox ("操作完成！")
    Else
        MsgBox ("操作取消！")
    End If
End Sub