Word中将多个表格内容批量居中：通过“宏”操作

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.运行前后对比图

• 运行前：
  
• 运行后：