如何全选word中所有表格

要全选Word文档中的所有表格，可以使用以下VBA宏：

Sub SelectAllTables()
    Dim tbl As Table
    For Each tbl In ActiveDocument.Tables
        tbl.Range.Select
        Selection.MoveEnd wdTable, 1
    Next tbl
End Sub

这个宏使用了ActiveDocument.Tables获取文档中的所有表格，然后在遍历每个表格时，使用tbl.Range.Select方法选中表格的内容，并使用Selection.MoveEnd方法扩展选中范围，直到包含整个表格。

要使用这个宏，可以按下Alt+F11打开VBA编辑器，然后选择“插入”菜单中的“模块”，将代码复制粘贴到新建的模块中，保存并运行即可。在运行宏之前，可以先将插入点放在文档的任意位置，以便在选中表格后能够立即查看效果。

需要注意的是，如果文档中有很多表格，这个宏可能会花费很长时间才能完成。在执行宏时，可以在状态栏中查看进度，以便了解它是否正在进行。