Word中将多个表格内容批量居中
操作系统:win10
word版本:office 2016
1. 打开word——>视图——>宏
2.输入宏名——>创建宏
3. 将下面的代码粘贴进去
Sub 表格内容批量居中()
'
' 表格内容批量居中 宏
'
'
For i = 1 To ActiveDocument.Tables.Count
With ActiveDocument.Tables(i)
.AutoFitBehavior (wdAutoFitWindow) '根据窗口调整内容
.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '水平居中
.Range.ParagraphFormat.Alignment = wdCellAlignVerticalCenter '垂直居中
.Borders(wdBorderHorizontal).LineStyle = wdLineStyleInset '加水平线
End With
Next i
End Sub
4.点击上方的运行按钮
5.运行前后对比图
- 运行前:
- 运行后: