WordVBAで表の操作

'アクティブなページのテーブルを選択する。
    With ActiveDocument.Bookmarks("\Page").Range.Tables
     If .Count = 0 Then Exit Sub
        .Item(1).Select
    End With

'例はサイズ7p , デザインは"ＭＳ Ｐゴシック"
    With Selection.Range.Font
        .Size = 7
        .Name = "ＭＳ Ｐゴシック"
    End With

'例は行間8p固定
    With Selection.ParagraphFormat
        .LineSpacingRule = wdLineSpaceExactly
        .LineSpacing = 8
    End With

 Dim rowMax As Long, i As Long
 rowMax = ActiveDocument.Bookmarks("\Page").Range.Tables.Item(1).Rows.Count
 For i = 1 To rowMax
    With ActiveDocument.Bookmarks("\Page").Range.Tables.Item(1).Rows(i)
        .Cells.VerticalAlignment = wdCellAlignVerticalCenter 
    End With
Next

'1行目を7.5mmに変更
Call ActiveDocument.Bookmarks("\Page").Range.Tables.Item(1).Rows(1).SetHeight(MillimetersToPoints(7.5), wdRowHeightExactly)

'１列目を8mmに変更
Call ActiveDocument.Bookmarks("\Page").Range.Tables.Item(1).Columns(1).SetWidth(MillimetersToPoints(8), wdAdjustNone)