查看当前word多少个表格：

vba
展开代码
Sub CountTablesInDocument()
    Dim tableCount As Long
    
    ' 获取文档中所有表格的数量
    tableCount = ActiveDocument.Tables.Count
    
    ' 显示结果
    If tableCount > 0 Then
        MsgBox "当前文档中包含 " & tableCount & " 个表格。", vbInformation, "表格统计"
    Else
        MsgBox "当前文档中没有表格。", vbInformation, "表格统计"
    End If
End Sub

查看excel里有多少个sheet：

vba
展开代码
Sub CountSheetsInWorkbook()
    Dim sheetCount As Long
    
    ' 获取当前工作簿中所有工作表的数量
    sheetCount = ThisWorkbook.Sheets.Count
    
    ' 显示结果
    If sheetCount > 0 Then
        MsgBox "当前工作簿中包含 " & sheetCount & " 个工作表。", vbInformation, "工作表统计"
    Else
        MsgBox "当前工作簿中没有工作表。", vbInformation, "工作表统计"
    End If
End Sub