如果您无法下载资料，请参考说明：
1、部分资料下载需要金币，请确保您的账户上有足够的金币
2、已购买过的文档，再次下载不重复扣费
3、资料包下载后请先用软件解压，在使用对应软件打开
wordVBA全选文档内所有表格的代码Sub全选所有表格()''全选所有表格Macro'DimtempTableAsTableApplication.ScreenUpdating=False'判断文档是否被保护IfActiveDocument.ProtectionType=wdAllowOnlyFormFieldsThenMsgBox"文档已保护，此时不能选中多个表格！"ExitSubEndIf'删除所有可编辑的区域ActiveDocument.DeleteAllEditableRangeswdEditorEveryone'添加可编辑区域ForEachtempTableInActiveDocument.TablestempTable.Range.Editors.AddwdEditorEveryoneNext'选中所有可编辑区域ActiveDocument.SelectAllEditableRangeswdEditorEveryone'删除所有可编辑的区域ActiveDocument.DeleteAllEditableRangeswdEditorEveryoneApplication.ScreenUpdating=TrueEndSub
立即下载
