表格要居中？文字也要居中？安排！
直接上通用VBA代码，复制粘贴就能用——
Sub CenterTable()
Application.Browser.Target = wdBrowseComment
For i = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(i).Rows.Alignment = wdAlignRowCenter
ActiveDocument.Tables(i).Range.Paragraphs.Alignment = wdAlignParagraphCenter
ActiveDocument.Tables(i).Rows.Height = 40
Next i
End Sub
? 操作三步走：
1?? 打开Word文档 → 「视图」→ 「宏」→ 「查看宏」→ 点「创建」进VB编辑器（或者Alt+F11）
2?? 把上面代码全选粘贴进去 → 按F5一键运行！所有表格+内容立马居中～
3?? 如果只想文字居中、表格本身不动？删掉第三行（Rows.Height那行）就行！
小提示：
? 高度40是行高，嫌挤/嫌松自己改数字，比如35、45都OK～
? 表格多也不怕，自动遍历全文档所有表格！
? Office 365 / Win11 / M1 Mac（需开启宏）基本都兼容，放心冲～
（别问为啥不用格式刷…那得一张张点到手麻）
直接上通用VBA代码，复制粘贴就能用——
Sub CenterTable()
Application.Browser.Target = wdBrowseComment
For i = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(i).Rows.Alignment = wdAlignRowCenter
ActiveDocument.Tables(i).Range.Paragraphs.Alignment = wdAlignParagraphCenter
ActiveDocument.Tables(i).Rows.Height = 40
Next i
End Sub
? 操作三步走：
1?? 打开Word文档 → 「视图」→ 「宏」→ 「查看宏」→ 点「创建」进VB编辑器（或者Alt+F11）
2?? 把上面代码全选粘贴进去 → 按F5一键运行！所有表格+内容立马居中～
3?? 如果只想文字居中、表格本身不动？删掉第三行（Rows.Height那行）就行！
小提示：
? 高度40是行高，嫌挤/嫌松自己改数字，比如35、45都OK～
? 表格多也不怕，自动遍历全文档所有表格！
? Office 365 / Win11 / M1 Mac（需开启宏）基本都兼容，放心冲～
（别问为啥不用格式刷…那得一张张点到手麻）
