wordvba文档中第一个表格，第一列所有行的内容都居中

在Word VBA中操作Excel工作表，如果你想让第一个表格的第一列所有行的内容居中，可以按照以下步骤编写宏代码：

Sub CenterFirstColumn()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1") '假设你的表格在"Sheet1"上
    
    With ws.ListObjects(1) 'ListObjects返回第一个表格
        If .IsTable Then
            .Range.Columns(1).EntireRow.Cells.HorizontalAlignment = xlCenter '将第一列全部内容设置为居中对齐
        End If
    End With
End Sub

这个VBA代码首先设置了一个工作表变量`ws`，然后检查是否为表格。如果是表格，则选择第一列并将其所有行的单元格水平对齐为居中。

如果你的表格不在默认的工作表"Sheet1"上，你需要修改`Set ws = ThisWorkbook.Worksheets("SheetName")`中的"SheetName"为你实际的表单名称。

运行此宏后，第一个表格的第一列的所有行应该会居中显示。