word2010中统一调整表格格式

2021-11-18 00:00:00 表格 调整 中统

word中统一调整表格格式基本思路是: 1、选中所有的表格。 2、再对表格格式调整。 选中所有表格需要用到宏,操作很简单,具体操作如下: (1)工具栏“视图”下右下角“宏”。
《word2010中统一调整表格格式》 (2)点击,会出现下面的编辑框。
《word2010中统一调整表格格式》 (3)先填写宏名,可以叫“SelectAllTables”,单击创建,出弹出编辑框如下。
《word2010中统一调整表格格式》 (4)拷贝代码进去,放在“selectalltables宏”和“endsub”之间,代码如下:

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

(5)拷贝后是这样的。

《word2010中统一调整表格格式》

 (6)然后点击工具栏中的三角形,就是运行宏。

《word2010中统一调整表格格式》

 (7)此时,文档中的表格就全选中了,就像调整一个表格一样调整就好了。

    原文作者:大数据张老师
    原文地址: https://blog.csdn.net/xiaosa5211234554321/article/details/113353306
    本文转自网络文章,转载此文章仅为分享知识,如有侵权,请联系博主进行删除。

相关文章