Question

word VBA替换文字和删除页面问题！请各路大神前来帮助。。

1.本文中每页都含有如下图所示的相同的表格，如何使用VBA语句批量删除表格中圈红部分的内容。2.通过识别一个表格中某个单元格是否含有文本，含有文本则保留本页面，不含有文本则删除本页。识别单元格可以是规格后面的一个。请大神帮忙小弟列出两个VBA语句。。刚接触VBA实在不知如何下手。。

Answer 1

示例代码如下：

Sub 宏1()
    For i = 1 To ThisDocument.Tables.Count
        s = ThisDocument.Tables(i).Cell(1, 2).Range.Text
        If Trim(s) = "" Then
            MsgBox ("无数据" & s)
        Else
            MsgBox ("有数据" & s)
        End If
    Next
End Sub