荔园在线
荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀
[回到开始]
[上一篇][下一篇]
发信人: Jobs (温少), 信区: Visual
标 题: Microsoft Word 对象--运用其他普通对象
发信站: BBS 荔园晨风站 (Sun Jan 16 18:19:59 2000), 转信
运用其他普通对象
本节提供了关于运用一些普通Word对象的信息和技巧。
使用HeaderFooter对象
HeaderFooter对象既可以表示一个页眉也可以表示一个注脚。HeaderFooter对象
是HeaderFooter集合的一个成员，它可以在Section对象中使用。Headers(index)
或Footer(index)属性返回了一个单独的HeaderFooter对象，在这里index是
WdHeaderFooterIndex常量的一个值。
以下的示例创建了一个Range对象(aRange)，该对象表示活动文档第一节的主要注
脚。在该示例设置Range对象之后，它删除了已有的注脚文本。它还向注脚添加了
AUTHOR域以及两个表和FILENAME域。
Set oRange = ActiveDocument. Sections(1). Footers (wdHeaderFooterPrimary). Range
With oRange
.Delete
.Fields. Add Range :=oRange, Type :=wdFieldFileName, Text :="\p"
.InsertAfter Text :=vbTab
.InsertAfter Text :=vbTab
.Collapse Direction :=wdCollapseStart
.Fields.Add Range :=oRange, Type :=wdFieldAuthor
End With
注释 PageNumbers集合仅仅能在HeaderFooter对象中使用。可以对PageNumbers集
合应用Add方法来向一个页眉或注脚添加页码。
使用Styles集合
Styles集合可以在Document对象中使用。以下的示例改变了活动文档中“标题1”
样式的格式。
ActiveDocument. Styles (wdStyleHeading1). Font. Name = "Arial"
Styles集合不能在Template对象中使用。如果想修改一个模板中的样式，可以使
用OpenAsDocument方法按文档来打开模板，这样用户就可以对样式进行修改。以
下的示例改变了活动文档所附的模板中“标题1”样式的格式。
Set aDoc = ActiveDocument. AttachedTemplate. OpenAsDocument
With aDoc
.Styles(wdStyleHeading1). Font. Name = "Arial"
.Close SaveChanges :=wdSaveChanges
End With
指定CommandBars
在使用CommandBars集合(表示菜单栏和工具栏)之前，可以使用
CustomizationContext属性来设置保存着对菜单栏和工具栏的更改的Template或
Document对象。以下的示例给“格式”工具栏添加了“双下划线”命令。因为自
定义更改保存在Normal模板中，所有的文档都会受到影响。
CustomizationContext = NormalTemplate
CommandBars ("Formatting"). Controls. Add Type :=msoControlButton, _
ID :=60, Before :=7
要了解关于菜单栏和工具栏的更改范围的更多信息，请参阅第八章，“菜单栏和
工具栏”。
使用Dialogs集合
可以使用Dialogs属性返回Dialogs集合，该集合表示内置Word对话框(例如，“打
开”和“保存”对话框等)。用户不能新建内置对话框，也不能向Dialogs集合添
加内置对话框。要了解关于创建用ActiveX控件创建自定义对话框的内容，请参阅
第十二章，“ActiveX 控件和对话框”。
返回MailMerge和MailMerge对象
可以使用Document对象的MailMerge属性来返回一个MailMerge对象。无论所指定
的文档是否是一个邮件合并文档，都可以使用MailMerge属性。在用户使用
Execute方法执行合并之前，可以使用State属性来确定邮件合并操作的状态。如
果活动文档是附加了数据源的主文档，那么以下的示例将执行邮件合并。
Set myMerge = ActiveDocument.MailMerge
If myMerge. State = wdMainAndDataSource Then myMerge. Execute
使用Document对象的Envelope属性可以返回一个Envelope对象。无论用户是否向
所指定的文档添加了一个信封，都可以使用Envelope对象。但是，如果用户使用
以下属性而没有向文档添加信封，那么会出现错误：Address属性,
AddressFromLeft属性, AddressFromTop属性，FeedSource属性， ReturnAddress
属性，ReturnAddressFromLeft属性， ReturnAddressFromTop属性或
UpdateDocument属性。
以下的示例使用On Error GoTo语句来捕获用户没有向活动文档添加信封的错误。
但是，如果用户已经向文档添加了信封，将显示收件人地址。
On Error GoTo ErrorHandler
MsgBox ActiveDocument. Envelope. Address
ErrorHandler:
If Err = 5852 Then MsgBox "Envelope is not in the specified document"
在文档中添加和编辑域
用户可以通过对Field集合应用Add方法来给文档添加域。以下的示例添加了一个
DATE域来替换选定内容。
ActiveDocument. Fields. Add Range:=Selection. Range, Type :=wdFieldDate
在添加一个域之后，用户可以通过使用Result或Code属性来返回或设置域结果和
域代码，这两种属性都可以返回一个Range对象。以下的示例更改选定内容的第一
个域代码，更新该域，然后显示域结果。
If Selection. Fields. Count >= 1 Then
With Selection. Fields (1)
.Code. Text = "CREATEDATE \*MERGEFORMAT"
.Update
MsgBox . Result. Text
End With
End If
InlineShape对象同Shape对象的对比
一个Shape对象代表图形层的一个对象，诸如自选图形、任意多边形、OLE对象、
ActiveX控件、图片等。Shape对象锁定于文本范围内，但是能够任意移动，使用
户可以将它们定位于页面的任何位置。要了解运用Shape对象的信息，请参阅第十
章，“形状和图形层”,也可以参阅“帮助”中的“Shape对象”。
一个InlineShape对象代表文档文字层的一个对象。一个嵌入式形状可能是图片、
OLE对象或ActiveX控件。可以将InlineShape对象视为字符，并将其象字符一样放
在一行文本中。要了解关于InlineShape对象的信息，请参阅“帮助”中的“
InlineShape集合对象”或“InlineShape对象”。
在Word窗体中使用FormField对象
用户可以创建一个Word在线窗体，该窗体包含复选框、文本文本框和下拉式列表
框。使用“窗体”工具栏可以插入这些窗体元素。对应的Visual Basic对象是
CheckBox, TextInput, 和DropDown。所有这些对象都可以在FormFields集合的任
何一个FormField对象中使用；但是，用户应当使用按照窗体域的类型使用相应的
对象。例如，以下命令从活动文档的“Check1”域中选择复选框。
ActiveDocument. FormFields ("Check1").CheckBox. Value = True
除了“窗体”工具栏中的窗体元素之外，用户还可以向一个在线窗体添加ActiveX
控件。使用“控件工具箱”可以插入ActiveX控件。用户可以把控件插入文字层或
图形层；控件将分别由一个InlineShape 对象或一个Shape对象来表示。要了解关
于运用ActiveX控件的更多内容，请参阅第十二章，“ActiveX控件和对话框”。
--
我想超越这平凡的生活，注定我暂时漂泊！
我无法停止我内心的狂热，对未来的执着！
※ 来源:·BBS 荔园晨风站 bbs.szu.edu.cn·[FROM: 192.168.11.111]
[回到开始]
[上一篇][下一篇]
荔园在线首页 友情链接：深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店