--表格整体居中
Sub SetTableCenter()
Dim doc As Document, myTable as Table
Set doc = ActiveDocument
If doc.Tables.Count = 0 Then Exit Sub
For Each myTable In doc.Tables
myTable.Range.Rows.Alignment = wdAlignRowCenter
Next
End Sub
【vba-2】vba操作word所有表格居中
最新推荐文章于 2023-08-07 22:58:56 发布