文档几十张表格不用慌,VBA 代码一键设置统一样式!写工作报告、方案标书、汇总文档时，最让人头疼的从来不是码字，而是批量表格排版。
一篇长文档里动辄十几张、几十张表格，大小不一、边框错乱、底色杂乱、对齐不统一，手动逐一对齐、改样式、调格式，耗时又费力，反复微调还容易出现格式偏差，严重影响文档整洁度和专业性。
其实根本不用低效手动操作！掌握Word VBA代码，就能彻底告别重复机械的排版工作。无需复杂操作，复制代码一键运行，即可批量统一文档内所有表格的样式、边框、对齐方式和表头格式，轻松实现全篇文档格式标准化。
今天给大家分享一套直接复制即用的VBA脚本，新手也能零门槛上手，几分钟搞定全篇表格美化，大幅提升办公效率！
Sub 统一所有表格格式()Dim tbl As TableDim rng As RangeSet rng = Selection.Range'命名选中区域表格 Application.ScreenUpdating = False'关闭屏幕闪烁，加快运行For Each tbl In rng.Tables'========【在这里修改表格参数】========'1. 表格自动适配页面宽度 tbl.AutoFitBehavior wdAutoFitWindow'2. 单元格内边距（上下左右）单位：磅 tbl.TopPadding = 1 tbl.BottomPadding = 1 tbl.LeftPadding = 1 tbl.RightPadding = 1'3. 单元格内容垂直居中 tbl.Range.Cells.VerticalAlignment = wdAlignCellVerticalCenter'4. 表格整体居中对齐 tbl.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter'5. 设置全部边框：黑色、1磅实线 tbl.Borders.Enable = True'tbl.Borders.LineStyle = wdLineStyleSingle'tbl.Borders.LineWidth = wdLineWidth100pt '1磅'6. 表格内文字格式 tbl.Range.Font.Name = "宋体" tbl.Range.Font.Size = 12 tbl.Range.ParagraphFormat.SpaceAfter = 0 tbl.Range.ParagraphFormat.SpaceBefore = 0ForEach row In tbl.Rows'方案A：最小值行高 20磅（推荐！内容多自动增高） row.HeightRule = wdRowHeightAtLeast row.Height = CentimetersToPoints(1) '1厘米，也可直接写数字代表磅值 Next row Next tbl Application.ScreenUpdating = True MsgBox "所有表格格式修改完成！"EndSub
夜雨聆风
