【Word VBA/マクロ】表の配置を中央に設定/表内の表の配置を中央に設定

サンプルコードでできること

文書内の表すべての上下配置を中央に設定します。

コードの内容

For Each構文を用いて、文書内の表すべての上下配置を変更しています。

Sub 表の配置を中央揃えに設定()
    Dim tbl As Table
    For Each tbl In ActiveDocument.Tables
        tbl.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter
    Next
End Sub

サンプルコードでできること

表内の表の上下配置を中央に設定します。

コードの内容

「For Each tbl In ActiveDocument.Tables」で表ごとに、「For Each subTbl In tbl.Tables」で表内の表ごとに上下配置を変更しています。

Sub 表内表の配置を中央揃えに設定()
    Dim tbl As Table
    Dim subTbl As Table
    For Each tbl In ActiveDocument.Tables
        For Each subTbl In tbl.Tables
            subTbl.Range.Cells.VerticalAlignment = _
                 wdCellAlignVerticalCenter
        Next
    Next
End Sub