利用vba设置word文档的页面布局

《利用vba设置word文档的页面布局》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、利用VBA设置Word文档的页面布局或者：代码：l当前文档的页面设置SubglkCurrentDocPageSetup()DimglkDocAsDocument'定义变量SetglkDoc=Application.ActiveDocument'设置为当前文档WithglkDoc'设置文档参数With.PageSetup'设置【页面设置】参数.Orientation=wdOrientPortrait'页面方向:wdOrientPortrait--纵向,wdOrientLandscape--横向.PageWidth=CentimetersToPoints(21)'纸张宽21cm.PageHei

2、ght=CentimetersToPoints(29.7)'纸张高29.7cm.TopMargin=CentimetersToPoints(2)'上边距2cm.BottomMargin=CentimetersToPoints(1.5)'下边距1.5cm.LeftMargin=CentimetersToPoints(2.5)'左边距2.5cm.RightMargin=CentimetersToPoints(1.5)'右边距1.5cm.HeaderDistance=CentimetersToPoints(0.5)'页眉0.5cm.FooterDistance=CentimetersToPoin

3、ts(0.5)'页脚0.5cmEndWith'结束【页面设置】参数设置.Save'保存文档参数EndWith'结束文档参数设置EndSubl选择文档的页面设置SubglkSelectDocPageSetup()DimglkFileDialogAsFileDialog'定义选择文件对话框DimglkSelectedItemAsVariant'定义变量DimglkDocAsDocument'定义文档SetglkFileDialog=Application.FileDialog(msoFileDialogFilePicker)'设置变量WithglkFileDialog'设置对话框属性.Filt

4、ers.Clear'清除过滤器.Filters.Add"所有WORD文件","*.Doc",1'添加过滤条件.AllowMultiSelect=True'允许多选If.Show=-1Then'如果按【打开】Application.ScreenUpdating=False'关闭屏幕更新ForEachglkSelectedItemIn.SelectedItems'For-Next循环SetglkDoc=Documents.Open(FileName:=glkSelectedItem,Visible:=False)'后台打开所选文档WithglkDoc'设置文档参数With.PageSetup'

5、设置【页面设置】参数.Orientation=wdOrientPortrait'页面方向:wdOrientPortrait--纵向,wdOrientLandscape--横向.PageWidth=CentimetersToPoints(21)'纸张宽21cm.PageHeight=CentimetersToPoints(29.7)'纸张高29.7cm.TopMargin=CentimetersToPoints(2)'上边距2cm.BottomMargin=CentimetersToPoints(1.5)'下边距1.5cm.LeftMargin=CentimetersToPoints(2.5

6、)'左边距2.5cm.RightMargin=CentimetersToPoints(1.5)'右边距1.5cm.HeaderDistance=CentimetersToPoints(0.5)'页眉0.5cm.FooterDistance=CentimetersToPoints(0.5)'页脚0.5cmEndWith'结束【页面设置】参数设置.Save'保存文档参数EndWith'结束文档参数设置glkDoc.Close'关闭文档NextApplication.ScreenUpdating=True'启用屏幕更新MsgBox"所选文档的页面已设置完毕！",vbInformationElse

7、'如果按【取消】MsgBox"您取消了本次操作！",vbInformationEndIfEndWith备用资料：Sub批量格式设置()'此代码为指定文件夹中所有选取的WORD文件的进行格式设置DimMyDialogAsFileDialog,vrtSelectedItemAsVariant,DocAsDocument'OnErrorResumeNext'忽略错误'定义一个文件夹选取对话框SetMyDialog=Applic