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

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

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

【 tulaoshi.com - Word教程 】

下面的WAPP是事先定义的word文档工程变量。

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

以下代码为通过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"));//装订线位置

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

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

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

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

经验教程

573

收藏

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