VBA设置word文档的页面页眉方法

1、打开word2003新建空白文档——点击工具——宏——Visual Basic,打开VBA编辑器（直接按ALT+F11也可以），其它版本的打开方式有所不同，但快捷键是一样的

3、第三，如果想制作多种设置，最好添加模块——点击VBA编辑器的插入——模块，直接打开模块编辑页面，在那里输入编辑代码。也可以插入类模块。

5、第四，设计完成一个模块之后，还可以再点击插入——模块，插入一个模块2，可以编辑另一个VBA豹肉钕舞设置页面的代码，如果我们想打开其它文嘲汲萝镗档用VBA来设置，怎么办呢？下面是选择文档的页面设置代码：Sub glkSelectDocPageSetup()Dim glkFileDialog As FileDialog '定义选择文件对话框Dim glkSelectedItem As Variant '定义变量Dim glkDoc As Document '定义文档Set glkFileDialog = Application.FileDialog(msoFileDialogFilePicker) '设置变量With glkFileDialog '设置对话框属性 .Filters.Clear '清除过滤器 .Filters.Add "所有 WORD 文件", "*.Doc", 1 '添加过滤条件 .AllowMultiSelect = True '允许多选 If .Show = -1 Then '如果按【打开】 Application.ScreenUpdating = False '关闭屏幕更新 For Each glkSelectedItem In .SelectedItems 'For-Next循环 Set glkDoc = Documents.Open(FileName:=glkSelectedItem, Visible:=False) '后台打开所选文档 With glkDoc '设置文档参数 With .PageSetup '设置【页面设置】参数 .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) '左边距2.5cm .RightMargin = CentimetersToPoints(1.5) '右边距1.5cm .HeaderDistance = CentimetersToPoints(0.5) '页眉0.5cm .FooterDistance = CentimetersToPoints(0.5) '页脚0.5cm End With '结束【页面设置】参数设置 .Save '保存文档参数 End With '结束文档参数设置 glkDoc.Close '关闭文档 Next Application.ScreenUpdating = True '启用屏幕更新 MsgBox "所选文档的页面已设置完毕！", vbInformation Else '如果按【取消】 MsgBox "您取消了本次操作！", vbInformation End IfEnd WithEnd Sub