1 将下面的脚本复制
2 word---视图---宏----查看宏----输入宏名:SelectAllTables----点击创建
Alt+F11打开VBA代码编辑窗口,新增模块
3 将脚本编辑窗口中的默认代码删掉,粘贴1步复制的脚本,保存并关闭
Sub SelectAllTables()
'
' SelectAllTables 宏
'
'
Dim tempTable As Table
Application.ScreenUpdating = False
'判断文档是否被保护
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
MsgBox "文档已保护,此时不能选中多个表格!"
Exit Sub
End If
'删除所有可编辑的区域
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
'添加可编辑区域
For Each tempTable In ActiveDocument.Tables
tempTable.Range.Editors.Add wdEditorEveryone
Next
'选中所有可编辑区域
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
'删除所有可编辑的区域
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
End Sub
4 word---视图---宏----查看宏----运行刚创建的宏(参图1)
在word中查看,所有表格已为选中状态。
5 此时可以统一调整表格样式了
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)