word2010中統一調整表格格式

word中統一調整表格格式基本思路是：

1、選中所有的表格。

2、再對表格格式調整。

  

選中所有表格需要用到宏，操作很簡單，具體操作如下：

（1）工具欄“視圖”下右下角“宏”。

  

（2）點擊，會出現下面的編輯框。

  

（3）先填寫宏名，可以叫“SelectAllTables”，單擊創建，出彈出編輯框如下。

 

（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）拷貝后是這樣的。

 

 （6）然后點擊工具欄中的三角形，就是運行宏。

 

 （7）此時，文檔中的表格就全選中了，就像調整一個表格一樣調整就好了。