Sub 指定範圍文字段落調整() With Selection.Paragraphs ‘指定需要調整的段落 .Alignment = wdAlignParagraphJustify ‘左右對齊 .

Sub 版面設置() With ActiveDocument.PageSetup ‘頁面設置 .LeftMargin = CentimetersToPoints(3.18) .RightMargin = Ce

Sub 表格加邊框線條加黑網底變白() Dim borderLoop As Border Dim i, s As Integer i = ActiveDocument.Tables.Count For s = 1 To

Sub 自動插入底稿頁尾() Dim mytable As table With ActiveDocument Set mytable = .Tables.Add(.Sections(1).Footers(wdHeade

Sub 自動插入底稿頁首() ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader With ActiveDocument.Sections(1)