摘要:
Sub 设置页面() ' ' 设置页面和页码 宏 ' ' With Selection.PageSetup .LineNumbering.Active = False .Orientation = wdOrientPortrait .TopMargin = CentimetersToPoints(2 阅读全文
posted @ 2022-11-28 01:52
沭水之虾
阅读(218)
评论(0)
推荐(0)
摘要:
Sub 设置页面() ' ' 设置页面和页码 宏 ' ' With Selection.PageSetup .LineNumbering.Active = False .Orientation = wdOrientPortrait .TopMargin = CentimetersToPoints(2 阅读全文
posted @ 2022-11-28 00:23
沭水之虾
阅读(279)
评论(0)
推荐(0)
摘要:
Sub 插入页码() ActiveDocument.PageSetup.OddAndEvenPagesHeaderFooter = False '关闭奇偶页相同(防止上回启用奇偶页不同后没有关闭此项设置) With ActiveWindow.ActivePane.View .SeekView = w 阅读全文
posted @ 2022-11-28 00:21
沭水之虾
阅读(1536)
评论(0)
推荐(0)