如何通过Word VBA将页面中的表格设置为居中对齐？

你之前用的Selection.ParagraphFormat.Alignment是用来调整单元格内文本的段落对齐，要让整个表格在页面居中，得直接操作表格对象的对齐属性。

下面是直接搞定文档中所有表格的代码：

Sub CenterAllTables()
    Dim tbl As Table
    ' 遍历当前文档里的每一个表格
    For Each tbl In ActiveDocument.Tables
        ' 设置表格整体居中对齐
        tbl.Alignment = wdAlignTableCenter
    Next tbl
End Sub

代码说明 #

• tbl.Alignment是表格对象的专属属性，专门控制表格在页面上的水平对齐方式，可选值还有wdAlignTableLeft（左对齐）、wdAlignTableRight（右对齐）
• 这段代码会批量处理文档里所有表格，不需要手动选中

如果只需要处理选中区域内的表格，用这段：

Sub CenterSelectedTables()
    Dim tbl As Table
    For Each tbl In Selection.Tables
        tbl.Alignment = wdAlignTableCenter
    Next tbl
End Sub

运行宏后，表格就会自动在页面居中，不会改动单元格内文本的对齐方式，完全符合你的需求。

内容的提问来源于stack exchange，提问作者Tony Su