欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

word修改頁邊距/紙張縱向/裝定線等vba代碼

  發(fā)布時(shí)間：2013-03-07 10:18:02   作者：佚名   我要評論
本文將介紹一些VBA代碼來實(shí)現(xiàn)頁面的頁邊距、紙張縱向、裝定線、頁眉頁靜等,感興趣的你可以參考下，希望這些VBA代碼可以幫助到你
下面的WAPP是事先定義的word文檔工程變量。

以下代碼為通過VBA代碼來實(shí)現(xiàn)頁面的頁邊距、紙張縱向、裝定線、頁眉頁靜等。

復(fù)制代碼
代碼如下:

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;//節(jié)的起始位置：新建頁
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;//不設(shè)置首頁的內(nèi)外邊距
WApp.ActiveDocument.PageSetup.TwoPagesOnOne = false;//不雙面打印
WApp.ActiveDocument.PageSetup.BookFoldPrinting =false;//不設(shè)置手動雙面正面打印
WApp.ActiveDocument.PageSetup.BookFoldRevPrinting =false;//不設(shè)置手動雙面背面打印
WApp.ActiveDocument.PageSetup.BookFoldPrintingSheets = 1;//打印默認(rèn)份數(shù)
WApp.ActiveDocument.PageSetup.GutterPos = Microsoft.Office.Interop.Word.WdGutterStyle.wdGutterPosLeft;//裝訂線位于左側(cè)
WApp.ActiveDocument.PageSetup.LinesPage = 40;//默認(rèn)頁行數(shù)量
WApp.ActiveDocument.PageSetup.LayoutMode = Microsoft.Office.Interop.Word.WdLayoutMode.wdLayoutModeLineGrid;//版式模式為“只指定行網(wǎng)格”

相關(guān)文章

  • word2007中的頁邊距怎么調(diào)整?

    如果word默認(rèn)的頁邊距不能滿足我們的要求，那么word2007中的頁邊距怎么調(diào)整?下面小編就為大家詳細(xì)介紹一下，不會的朋友快快來學(xué)習(xí)吧
    2016-02-24

  • 如何修改word的頁邊距？

    有些時(shí)候，我們需要設(shè)置一下word文檔的頁邊距，來增添文字輸入空間和獲得一個(gè)較好的布局，那么如何修改word的頁邊距？下面小編就為大家詳細(xì)介紹一下，希望能對大家有所幫助
    2016-01-29

  • Word2016怎么設(shè)置頁邊距? Word2016設(shè)置不同頁邊距的教程

    Word2016怎么設(shè)置頁邊距? 排版中時(shí)常需要設(shè)置頁邊距，這樣可以讓排版更加美觀整潔，但是word2016中怎么設(shè)置頁邊距呢？下面分享Word2016設(shè)置不同頁邊距的教程
    2015-11-23

  • Word 2013單元格邊距怎么調(diào)整？

    Word 2013單元格邊距怎么調(diào)整？當(dāng)我們在 Word 2013 中插入表格時(shí)，有些時(shí)候并不想讓文字緊挨表格邊框，而是希望留出一些邊距，以便使排版看起來顯得更美觀，下面分享具體的
    2015-06-16

  • word2010單行頁邊距怎么調(diào)整？

    word2010單行頁邊距怎么調(diào)整？word2010 如何調(diào)整單行頁邊距，在特定情況下要將某一行的文字向兩邊擴(kuò)展，如何操作，下面我們一起來看看
    2015-06-10

  • 如何設(shè)置word中的頁邊距

    如何簡單快速的設(shè)置頁邊距。
    2011-08-10

  • word頁邊距在哪里設(shè)置 word頁邊距設(shè)置方法圖文教程

    word是我們常用的辦公軟件，word的好多技巧都是我們需要熟練掌握的。今天小編給大家分享word頁邊距設(shè)置方法，需要的朋友參考下吧
    2016-11-24

最新評論