Word 文書内の表の書式 VBA

WORDの文書をVBAで一括設定

• 変更する内容

1. 左余白　インデント　0
2. 自動調整　ウインドウの幅に合わせる
3. 「表のオプション」　セルの配置　左右　1.9mm

• VBA code

Sub Table書式()
    Dim mytable As Table
    For Each mytable In ActiveDocument.Tables
        mytable.Rows.LeftIndent = MillimetersToPoints(0)
        mytable.PreferredWidthType = wdPreferredWidthPercent
        mytable.PreferredWidth = 100
        mytable.TopPadding = MillimetersToPoints(0)
        mytable.BottomPadding = MillimetersToPoints(0)
        mytable.LeftPadding = MillimetersToPoints(1.9)
        mytable.RightPadding = MillimetersToPoints(1.9)
        mytable.Spacing = 0
        mytable.AllowPageBreaks = True
        mytable.AllowAutoFit = True
    Next mytable
End Sub