如何用VBA判断Word的ActiveDocument是否含表格并分支执行代码

你可以通过ActiveDocument.Tables.Count属性直接获取当前文档中的表格总数，以此判断是否存在表格。修改后的完整代码如下：

Public HasTable As Boolean

Sub xxx()
    ' 判断文档是否存在表格
    HasTable = ActiveDocument.Tables.Count > 0
    
    If HasTable = True Then
        ' 存在表格时执行的代码
        MsgBox "文档中存在表格"
    Else
        ' 不存在表格时执行的代码
        MsgBox "文档中没有表格"
    End If
End Sub

代码说明 #

• ActiveDocument.Tables.Count会返回当前活动文档里所有表格的数量，若数量大于0则说明存在表格
• 直接用ActiveDocument.Tables.Count > 0的布尔结果给HasTable赋值，简洁高效
• 分支部分可以替换成你实际需要执行的业务代码

内容的提问来源于stack exchange，提问作者Visit Carnage