admin管理员组

文章数量:1794759

【vba

【vba

--表格整体居中
Sub SetTableCenter()Dim doc As Document, myTable as TableSet doc = ActiveDocumentIf doc.Tables.Count = 0 Then Exit SubFor Each myTable In doc.TablesmyTable.Range.Rows.Alignment = wdAlignRowCenterNext
End Sub

本文标签: VBA