WORD利用宏一次性选中文档中所有表格

办公应用
留言

做文档时， 我们经常要改变文本中所有表格的格式，如边框加粗等，如果文档是几百页的大文档，表格又较多，手动则比较麻烦了，今天博主为大家推荐一个好方法，那就是利用宏： ALT+F8，打开宏对话框，创建名为SelectAllTables的宏，代码如下： Sub 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

可能上面的格式有点问题，代码下载如下：自动选中表格宏代码 好了，下面再通过ALT+F8，运行创建的宏就可以了，是不是所有的表格都被选中了呢？

文章目录