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

2016-02-19 09:14 7 1 收藏

下面是个Word Vba修改页边距、纸张纵向、装定线等的代码教程,撑握了其技术要点,学起来就简单多了。赶紧跟着图老师小编一起来看看吧!

【 tulaoshi.com - Word教程 】

下面的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"));//下页边距

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com)

WApp.ActiveDocument.PageSetup.LeftMargin = WApp.CentimetersToPoints(float.Parse("3.17"));//左页边距

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com)

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;//纸张

来源:https://www.tulaoshi.com/n/20160219/1590006.html

延伸阅读
标签: word
怎样设置Word2013文档的页边距   方式1:打开Word2013文档窗口,切换到页面布局功能区。在页面设置分组中单击页边距按钮,并在打开的常用页边距列表中选择合适的页边距,如图1所示。 图1 选择合适的页边距 方式2:如果常用页边距列表中没有合适的页边距,可以在页面设置对话框自定义页边距设置,操作步骤如下所述: ...
  插入表格,如何使表格緊貼網頁的上面邊緣,不留空位? 在页面的风格设定内加入下面的定义     <STYLE TYPE="text/css"       BODY {margin: 0px}     </STYLE   又或者在BODY中直接加入     <BODY STYLE="margin: 0px...
标签: word
Word2007:页边距的两种设置方式   一篇文档想要打印出来更好地浏览,我们常常会在Word2007文档中设置页边距,这会让文档的正文部分跟页面边缘保持合适的距离。这样的方法,可以让文档看起来更加美观,还能达到节约纸张的目的。 方式1:打开Word2007文档窗口,切换到页面布局功能区。在页面设置分组中单击页边距按钮,并在打开的...
标签: excel
excel2010页边距怎么设置   Excel 2003和Excel 2007在打印预览时都可以直接单击页面来缩放页面大小,还可以单击页边距按钮及选择显示边距选项来查看页边距,或通过拖动黑色边距控点或线条来调整边距。那在Excel 2010中还有手动调整页边距这项功能吗?答案是有的,下面的步骤将为你TuLaoShi.com介绍怎么使用:     ...
标签: 电脑入门
①启动Excel2013,单击菜单栏--页面布局--页边距。 ②弹出页面设置界面,我们切换到页边距选项卡。 ③在上下左右中输入数值即可改变了。 ④最后,确定即可,重新打开表格就行了。

经验教程

316

收藏

50
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部