word 图片居中

摘要： Sub PicCenter() Dim myS As InlineShape Application.ScreenUpdating = False For Each myS in ActiveDocument.InlineShapes If Len(myS.Range.Paragraphs(1).R 阅读全文
posted @ 2022-01-19 14:42 编程007 阅读(81) 评论(0) 推荐(0)

word 表格内容居中

摘要： Sub 水平垂直居中() Dim t As Table For Each t In Me.Tables t.Select Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Selection.Range.Cells.Vertic 阅读全文
posted @ 2022-01-19 14:39 编程007 阅读(99) 评论(0) 推荐(0)

word 表格居中

摘要： 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 阅读全文
posted @ 2022-01-19 14:37 编程007 阅读(57) 评论(0) 推荐(0)

word 表格 字体更改

摘要： Sub defaultFontStyling() Dim table As table For Each table In ActiveDocument.Tables If table.Range.Information(wdActiveEndAdjustedPageNumber) > 1 Then 阅读全文
posted @ 2022-01-19 14:33 编程007 阅读(87) 评论(0) 推荐(0)