Sub 版面設置()

With ActiveDocument.PageSetup ‘頁面設置
.LeftMargin = CentimetersToPoints(3.18)
.RightMargin = CentimetersToPoints(3.18)
.TopMargin = CentimetersToPoints(2.54)
.BottomMargin = CentimetersToPoints(2.54)
End With

End Sub