11.7.5.10 处理其他各种杂务
1．更改视图
View 对象包含窗口或窗格的视图特性的属性和方法（全部显示、 显示域底纹、显示表格虚框等）。下面的代码将视图更改为页面视 图。
ActiveWindow.View.Type = wdPageView
2．设置页眉或页脚中的文字
HeaderFooter 对象是由 Headers、Footers 和 HeaderFooter 属 性返回的。下面的代码更改当前页面的页脚的文字。
ActiveWindow.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.Range.Text = "页眉文字"
本代码创建一个 Range 对象（oRange），该对象引用活动文档 第一节的基本页脚。设置了 Range 对象之后，删除现有的页脚文字。 向该页脚添加 FILENAME 域，后接两个制表位和 AUTHOR 域。
Set oRange = ActiveDocument.Sections （ 1 ） .Footers
（wdHeaderFooterPrimary）.Range
With oRange
.Delete
.Fields.Add Range:=oRange, Type:=wdFieldFileName,
Text:="\p"
.InsertAfter Text:=vbTab & vbTab
.Collapse Direction:=wdCollapseStart
.Fields.Add Range:=oRange, Type:=wdFieldAuthor
End With
3．设置选项
Options 对象包含的属性对应于【工具】菜单【选项】对话框中 各项。下面的代码设置 Word 应用程序的三个选项。
With Options
.AllowDragAndDrop = True
.ConfirmConversions = False
.MeasurementUnit = wdPoints
End With
4．更改文档版面
PageSetup 包含文档的所有页面设置属性（左边距、下边距、纸 张大小等等）。下面的代码设置活动文档的页边距。
With ActiveDocument.PageSetup
.LeftMargin = InchesToPoints（0.75）
.RightMargin = InchesToPoints（0.75）
.TopMargin = InchesToPoints（1.5）
.BottomMargin = InchesToPoints（1）
End With
5．循环遍历文档各段
本代码循环遍历活动文档的所有段落。如果某个段落的段前间距
为 12 磅，则本代码将段前间距改为 24 磅。
For Each aPara In ActiveDocument.Paragraphs
If aPara.SpaceBefore = 12 Then oPara.SpaceBefore =
24
Next aPara
6．自定义菜单和工具栏
CommandBar 对象同时代表菜单和工具栏。使用一个菜单或工具
栏名称的 CommandBars 属性可以返回单个的 CommandBar 对象。
Controls 属性返回一个 CommandBarControls 对象，该对象引用指
定工具栏上的项。下面的代码向【工具】菜单添加【字数统计】命
令。
CustomizationContext = NormalTemplate
CommandBars （ "Tools" ） .Controls.Add
Type:=msoControlButton, ID:=792, _
Before:=6
下面的代码向【格式】工具添加【双下划线】命令。
CustomizationContext = NormalTemplate
CommandBars （ "Formatting" ） .Controls.Add
Type:=msoControlButton, ID:=60, _
Before:=7
Tag:Word教程，word2003教程,word2007教程，电脑教学 - Word教程