word里批量调整表格格式

Sub 表格居中()
'
' 表格居中 宏
'
'
For i = 1 To ActiveDocument.Tables.Count

With ActiveDocument.Tables(i)
.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter
.Borders(wdBorderHorizontal).LineStyle = wdLineStyleInset


End With

Next i

End Sub

详细可参考

https://blog.csdn.net/ga421739102/article/details/110638163