Sub 調整日報表位置() ‘ ‘ fast 巨集 ‘ ‘ Range(“G4”).Select Range(Selection, Selectio
Read MoreSub 指定範圍文字段落調整() With Selection.Paragraphs ‘指定需要調整的段落 .Alignment = wdAlignParagraphJustify ‘左右對齊 .
Read MoreSub 版面設置() With ActiveDocument.PageSetup ‘頁面設置 .LeftMargin = CentimetersToPoints(3.18) .RightMargin = Ce
Read MoreSub 表格加邊框線條加黑網底變白() Dim borderLoop As Border Dim i, s As Integer i = ActiveDocument.Tables.Count For s = 1 To
Read MoreSub 自動插入底稿頁尾() Dim mytable As table With ActiveDocument Set mytable = .Tables.Add(.Sections(1).Footers(wdHeade
Read More