求助,word 里面选定很多表格的第一列

想要选定word里很多表格的第一列,宏要怎么写啊
百度到选定所有表格是
Sub SelectAllTables()
Dim tempTable As Table
Application.ScreenUpdating = False
'判断文档是否被保护
If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then
MsgBox "文档已保护，此时不能选中多个表格！"
Exit Sub
End If
'删除所有可编辑的区域
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
'添加可编辑区域
For Each tempTable In ActiveDocument.Tables
tempTable.Range.Editors.Add wdEditorEveryone
Next
'选中所有可编辑区域
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
'删除所有可编辑的区域
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
End Sub
选定第一列是
Sub xuanding1()
Dim t As Table
For Each t In ActiveDocument.Tables
t.Columns(1).Select
Next
End Sub
但是后面这个只能选定最后一个表格的第一列
还有选定所有表格后,怎么一次性让单元格居中对齐,谢谢,