word 表格内容居中 

Sub 水平垂直居中()
Dim t As Table
For Each t In Me.Tables
t.Select
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter
Next
End Sub

 

posted on 2022-01-19 14:39  编程007  阅读(90)  评论(0)  编辑  收藏  举报