ALT F8,打开宏对话框并创建一个名为SelectAllTables的宏。 代码如下。
Sub SelectAllTables (
Dim tempTable As Table
application.screen updating=false
'确定文档是否受保护
ifactivedocument.protection type=wdallowonlyformfieldsthen
MsgBox文档是受保护的。 此时无法选择多个表单!'
退出辅
End If
'删除所有可编辑区域
active document.deletealleditablerangeswdeditoreveryone
'添加可编辑区域
foreachtemptableinactivedocument.tables
temptable.range.editors.addwdeditoreveryone
下一步
'选择所有可编辑区域
active document.selectalleditablerangeswdeditoreveryone
'删除所有可编辑区域
active document.deletealleditablerangeswdeditoreveryone
application.screen updating=true
最终辅
保存完成后,选择加载宏。