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