自动完成Word 日常任务
2008-10-30 20:24:29 来源:WEB开发网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
更多精彩
赞助商链接