如何在Word VBA宏中设置第一个表格的第一列垂直居中显示

在 Word VBA 宏中，你可以使用 `Range` 对象的 `VerticalAlignment` 属性来设置单元格的垂直对齐方式。为了将第一个表格的第一列（假设它是A列）垂直居中显示，可以编写类似下面的代码：

Sub CenterFirstColumn()
    Dim tbl As Table
    Set tbl = ActiveDocument.Tables(1) ' 获取第一个表格
    
    If tbl IsNot Nothing Then ' 检查表格是否存在
        Dim rngHeader As Range
        Set rngHeader = tbl.Range.Columns(1) ' 获取第一列范围
        
        If Not rngHeader Is Nothing Then ' 检查列是否为空
            rngHeader.VerticalAlignment = wdCellAlignCenter ' 设置垂直居中
        Else
            MsgBox "表格的第一列不存在!"
        End If
    Else
        MsgBox "文档中没有表格!"
    End If
End Sub

运行这个宏后，它会检查文档的第一个表格是否存在，然后将第一列的单元格内容垂直居中。