word全选表格

《word全选表格》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、1将下面的脚本复制（在最后哦，也是网上找的）2word---视图---宏----查看宏----输入宏名：SelectAllTables----点击创建（参图1）3将脚本编辑窗口中的默认代码删掉，粘贴1步复制的脚本,保存并关闭（参图2）4word---视图---宏----查看宏----运行刚创建的宏（参图1）  在word中查看，所有表格已为选中状态。   SubSelectAllTables()DimtempTableAsTableApplication.ScreenUpdating=False'判断文档是否被保护IfActiveDocument.Protecti

2、onType=wdAllowOnlyFormFieldsThenMsgBox"文档已保护，此时不能选中多个表格！"ExitSubEndIf'删除所有可编辑的区域ActiveDocument.DeleteAllEditableRangeswdEditorEveryone'添加可编辑区域ForEachtempTableInActiveDocument.TablestempTable.Range.Editors.AddwdEditorEveryoneNext'选中所有可编辑区域ActiveDocument.SelectAllEditableRangeswdEditorE

3、veryone'删除所有可编辑的区域ActiveDocument.DeleteAllEditableRangeswdEditorEveryoneApplication.ScreenUpdating=TrueEndSub