自动完成Word 日常任务

核心提示： 11.7.5.10 处理其他各种杂务1．更改视图View 对象包含窗口或窗格的视图特性的属性和方法（全部显示、显示域底纹、显示表格虚框等），下面的代码将视图更改为页面视图，自动完成Word 日常任务(9)，ActiveWindow.View.Type = wdPageView2．设置页眉或

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