word修改页边距/纸张纵向/装定线等vba代码

本文将介绍一些VBA代码来实现页面的页边距、纸张纵向、装定线、页眉页静等,感兴趣的你可以参考下，希望这些VBA代码可以帮助到你 下面的WAPP是事先定义的word文档工程变量。

以下代码为通过VBA代码来实现页面的页边距、纸张纵向、装定线、页眉页静等。

复制代码代码如下:
WApp.ActiveDocument.PageSetup.LineNumbering.Active =0;//行编号
WApp.ActiveDocument.PageSetup.Orientation =Microsoft.Office.Interop.Word.WdOrientation.wdOrientPortrait;//页面方向
WApp.ActiveDocument.PageSetup.TopMargin =WApp.CentimetersToPoints(float.Parse("2.54"));//上页边距
WApp.ActiveDocument.PageSetup.BottomMargin = WApp.CentimetersToPoints(float.Parse("2.54"));//下页边距
WApp.ActiveDocument.PageSetup.LeftMargin = WApp.CentimetersToPoints(float.Parse("3.17"));//左页边距
WApp.ActiveDocument.PageSetup.RightMargin = WApp.CentimetersToPoints(float.Parse("3.17"));//右页边距
WApp.ActiveDocument.PageSetup.Gutter = WApp.CentimetersToPoints(float.Parse("0"));//装订线位置
WApp.ActiveDocument.PageSetup.HeaderDistance = WApp.CentimetersToPoints(float.Parse("1.5"));//页眉
WApp.ActiveDocument.PageSetup.FooterDistance = WApp.CentimetersToPoints(float.Parse("1.75"));//页脚
WApp.ActiveDocument.PageSetup.PageWidth = WApp.CentimetersToPoints(float.Parse("21"));//纸张宽度
WApp.ActiveDocument.PageSetup.PageHeight = WApp.CentimetersToPoints(float.Parse("29.7"));//纸张高度
WApp.ActiveDocument.PageSetup.FirstPageTray = Microsoft.Office.Interop.Word.WdPaperTray.wdPrinterDefaultBin;//纸张来源
WApp.ActiveDocument.PageSetup.OtherPagesTray = Microsoft.Office.Interop.Word.WdPaperTray.wdPrinterDefaultBin;//纸张来源
WApp.ActiveDocument.PageSetup.SectionStart = Microsoft.Office.Interop.Word.WdSectionStart.wdSectionNewPage;//节的起始位置：新建页
WApp.ActiveDocument.PageSetup.OddAndEvenPagesHeaderFooter = 0;//页眉页脚-奇偶页不同
WApp.ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = 0;//页眉页脚-首页不同
WApp.ActiveDocument.PageSetup.VerticalAlignment = Microsoft.Office.Interop.Word.WdVerticalAlignment.wdAlignVerticalTop;//页面垂直对齐方式
WApp.ActiveDocument.PageSetup.SuppressEndnotes =0;//不隐藏尾注
WApp.ActiveDocument.PageSetup.MirrorMargins = 0;//不设置首页的内外边距
WApp.ActiveDocument.PageSetup.TwoPagesOnOne = false;//不双面打印
WApp.ActiveDocument.PageSetup.BookFoldPrinting =false;//不设置手动双面正面打印
WApp.ActiveDocument.PageSetup.BookFoldRevPrinting =false;//不设置手动双面背面打印
WApp.ActiveDocument.PageSetup.BookFoldPrintingSheets = 1;//打印默认份数
WApp.ActiveDocument.PageSetup.GutterPos = Microsoft.Office.Interop.Word.WdGutterStyle.wdGutterPosLeft;//装订线位于左侧
WApp.ActiveDocument.PageSetup.LinesPage = 40;//默认页行数量
WApp.ActiveDocument.PageSetup.LayoutMode = Microsoft.Office.Interop.Word.WdLayoutMode.wdLayoutModeLineGrid;//版式模式为“只指定行网格”

上一篇：word制表位和TAB/空格作用概述 下一篇：如何给word文档加密？给word文档加密的详细步骤

相关文章

• Word教程 Word文档怎么比较不同内容

  Word文档怎么比较不同内容呢？很多用户对此还不是很清楚，小编这里就给大家带来有关Word文档怎么比较不同内容的回答，希望能够帮助大家了解。......

  2023-01-19

  详细阅读
• Word教程 Word文档怎么拆分

  Word文档怎么拆分成多个文档呢？很多用户对此还不是很清楚，小编这里就给大家带来有关Word文档怎么拆分的回答，希望能够帮助大家了解。......

  2023-01-19

  如何给word文档加密？给word文档加密的详细步骤

  在编辑一些非常重要的Word文档时，特别是一些机密的文档，给Word文档加上密码是一项非常有用的功能，也是一项安全的保障。

  详细阅读
• Word教程 Word不规则表格的制作方法

  Word不规则表格的制作方法是什么呢？很多用户对此还不是很清楚，小编这里就给大家带来有关Word不规则表格的制作方法的回答，希望能够帮助大家了解。......

  2023-01-19

  详细阅读
• Word教程 Word文本框怎么自动调整大小

  Word文本框怎么自动调整大小呢？很多用户对此还不是很清楚，小编这里就给大家带来有关Word文本框怎么自动调整大小的回答，希望能够帮助大家了解。......

  2023-01-19

  详细阅读
• Word教程 Word文档忘记保存怎么办

  Word文档忘记保存怎么办呢？很多用户对此还不是很清楚，小编这里就给大家带来有关Word文档忘记保存怎么办的回答，希望能够帮助大家了解。......

  2023-01-19

  详细阅读

word工具栏保存按钮不见了怎么办

如果在使用word的过程中，哪个菜单或哪个工具不见了，可以根据方法和需要自己来设置。