批量修改Word所有表格樣式

本文摘自word聯盟，版權歸word聯盟所有，文章地址：http://www.wordlm.com/html/6647.html

批量修改所有表格

1、利用宏選擇所有表格。首先，我們進入「開發工具」-「Visual Basic」將下列代碼復制進去（該宏的主要作用是，可以讓你一次選中文檔中所有的表格）。然后，在「宏」中點擊「運行」。

復制下列代碼：

 

Sub 批量修改表格()

 

    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

 

 

2、修改樣式。運行我們剛剛錄入進去的宏，即可一次選中文檔中所有表格，此時，我們在「設計」-「表格樣式」-「修改表格樣式」，在這里面我們可以隨意的設置表格中內容的格式樣式。

3、表格屬性。不僅如此，我們還能夠通過「右鍵」-「表格屬性」，進入后，我們可以對其中單元格的高度、寬度等再次統一設置。