本文作者:office教程网

Word Vba修改页边距.纸张纵向.装定线等的代码

office教程网 2023-04-17 14:31:47
后台-系统设置-扩展变量-手机广告位-内容正文顶部
摘要:

下面的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;//纸张来源

用宏实现启动WORD后自动弹出"打开"对话框

用宏实现启动WORD后自动弹出

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;//版式模式为“只指定行网格”

#实践笔记#本地配置PHPnow与WordPress运行环境

#实践笔记#本地配置PHPnow与WordPress运行环境 今早,笔者第一次尝试了本地安装PHPnow与WordPress。真正意义上体会到了WordPress的便捷与强大。由于最近一个多星期内认识了几位技术流的博友,他们分享了自己建立独立博客的经验,让笔者受益匪浅! 对比了“独立博客”与类似“博客园”的托管博客,笔者发现,虽然托管博客的确有很多优势。首先,免费就是一大优势了。其次,托管博客上有很多的博友。再者,免去了维护服务器等琐事的烦恼。但是,正如以上的站长所言,独立博客更自由、灵活,不受限制。这些

后台-系统设置-扩展变量-手机广告位-内容正文底部
未经允许不得转载:

作者:office教程网,原文地址:Word Vba修改页边距.纸张纵向.装定线等的代码发布于2023-04-17 14:31:47
转载或复制请以超链接形式并注明出处 演示站

分享到:

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏

留言与评论(共有 0 条评论)
   
验证码: