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

下面的WAPP是事先定义的word文档工程变量。以下代码为通过VBA代码来页面的页边距、纸张纵向、装定线、页眉页静等。WApp.Active;document.PageSetup.LineNumbering.Active =0;//行编号WApp.Activedocument.Pa;geSetup.Orientation =Microsoft.Office.Interop.Word.WdOrientation.wdOri;entPortrait;//页面方向WApp.Activedocument.PageSetup.TopMargin =WApp.Centim;etersToPoints(float.Parse(2.54));//上页边距WApp.Activedocument.PageSetup;.BottomMargin=WApp.CentimetersToPoints(float.Parse(2.54));//下页边距WApp;.Activedocument.PageSetup.LeftMargin=WApp.CentimetersToPoints(float.Pa;rse(3.17));//左页边距WApp.Activedocument.PageSetup.RightMargin=WApp.Cent;imetersToPoints(float.Parse(3.17));//右页边距WApp.Activedocument.PageSet;up.Gutter=WApp.CentimetersToPoints(float.Parse(0));//装订线位置WApp.Activ;edocument.PageSetup.HeaderDistance=WApp.CentimetersToPoints(float.Pars;e(1.5));//页眉WApp.Activedocument.PageSetup.FooterDistance=WApp.Centim;etersToPoints(float.Parse(1.75));//页脚WApp.Activedocument.PageSetup.P;ageWidth=WApp.CentimetersToPoints(float.Parse(21));//纸张宽度WApp.Active;document.PageSetup.PageHeight=WApp.CentimetersToPoints(float.Parse(29;.7));//纸张高度WApp.Activedocument.PageSetup.FirstPageTray=Microsoft.Offi;ce.Interop.Word.WdPaperTray.wdPrinterDefaultBin;//纸张来源WApp.Activedocum;ent.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.Of;fice.Interop.Word.WdVerticalAlignment.wdAlignVerticalTop;//页面垂直对齐方式WAp;p.Activedocument.PageSetup.SuppressEndnotes =0;//不隐藏尾注WApp.Activedocum;ent.PageSetup.MirrorMargins=0;//不设置首页的内外边距WApp.Activedocument.PageSetu;p.TwoPagesonOne=false;//不双面打印WApp.Activedocument.PageSetup.BookFoldPri;nting =false;//不设置手动双面正面打印WApp.Activedocument.PageSetup.BookFoldRevPri;nting =false;//不设置手动双面背面打印WApp