开发学院软件教学办公软件Word 自动完成Word 日常任务 阅读

自动完成Word 日常任务

 2008-10-30 20:24:29 来源:WEB开发网   
核心提示: 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

上一页  4 5 6 7 8 9 

Tags:自动 完成 Word

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接