近來需要編輯一個文件，其中有一個問題，就是把表格都設定為100寬,因為表格很多，處理很麻煩，於是就打算學下vba,把表格處理好.
把內容存下來用於後續參考。

巨集的簡單操作

檢視錄製巨集的vba指令碼

檢視->巨集->檢視巨集

->編輯

Sub 巨集2()
'
' 巨集2 巨集
'
'
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=8, NumColumns:= _
        1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With
 
 Selection.Tables(1)
        If .Style <> "網格型" Then
            .Style = "網格型"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
        .ApplyStyleRowBands = True
        .ApplyStyleColumnBands = False
 

    End With
End Sub

上面的內容如果沒怎麼了解語法，可能看不懂，但更多都是table物件的操作，可參考api

自己寫一個vba指令碼

設定所有的table為100的指令碼

Sub table_100()
'
'  巨集
'
',
    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
        tempTable.PreferredWidthType = wdPreferredWidthPercent
        tempTable.PreferredWidth = 100
    Next
    '選中所有可編輯區域
    ActiveDocument.SelectAllEditableRanges wdEditorEveryone
    '刪除所有可編輯的區域
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    Application.ScreenUpdating = True
End Sub

巨集->檢視巨集->填好名字後，建立

把上面的指令碼填上去, 這個指令碼 是把表格設定成 100，可把100設定成其它值，然後按 執行，即可把word中的所有表格都設定成 指定寬度.