摘要：Sub PicCenter() Dim myS As InlineShape Application.ScreenUpdating = False For Each myS in ActiveDocument.InlineShapes If Len(myS.Range.Paragraphs(1).R 阅读全文

摘要：Sub 水平垂直居中() Dim t As Table For Each t In Me.Tables t.Select Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Selection.Range.Cells.Vertic 阅读全文

摘要：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.Tabl 阅读全文

摘要：Sub defaultFontStyling() Dim table As table For Each table In ActiveDocument.Tables If table.Range.Information(wdActiveEndAdjustedPageNumber) > 1 Then 阅读全文