● Microsoft Word 对象--判断对象是否有效 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: Jobs (温少), 信区: Visual
标题: Microsoft Word 对象--判断对象是否有效
发信站: BBS 荔园晨风站 (Sun Jan 16 18:21:26 2000), 转信

判断对象是否有效

可以通过在用户代码中包含判断语句来判断由一个表达式返回的特定对象或者一
个变量所引用的对象是否有效，以此避免代码在运行时的错误。本节讨论了一些
检查表达式返回值或变量保存值有效性的技术。

用户可以随同一个变量或表达式使用TypeName函数来确定对象的类型。如果
Selection. NextField返回了一个Field对象，那么以下的示例将在状态栏中显示
一条消息。

If TypeName (Selection. NextField) = "Field" Then StatusBar = "A field
was found"

以下示例的功能等价于上述示例；不同之处仅在于它使用一个对象变量(myField)
来保存NextField方法的返回值。

Set myField = Selection. NextField

If TypeName (myField) = "Field" Then StatusBar = "A field was found"

如果指定的变量或表达式不代表一个对象，它对Nothing求值。如果NextField方
法没有返回Nothing(也就是说，如果NextField方法返回了一个Field对象，它只
是其他的可能返回值)，那么以下的示例将对myField应用Update方法。

Set myField = Selection. NextField

If Not (myField Is Nothing) Then myField. Update

Word包含共用的IsObjectValid属性。可以使用该属性来判断一个被某个变量所引
用的对象是否有效。如果变量所引用的对象已经被删除了，那么该属性返回False
。以下的示例向活动文档添加一个表格，并且把它赋值给变量aTable。该示例从
文档中删除了第一个表格。如果aTable引用的表格不是文档中的第一个表格(也就
是说，如果aTable仍然是一个有效的对象)，那么该示例删除表格的边框。

Set aTable = ActiveDocument. Tables. Add(Range :=Selection. Range,
NumRows :=2, _

NumColumns:=3)

ActiveDocument. Tables(1).Delete

If IsObjectValid (aTable) = True Then aTable. Borders. Enable = False

--

好好学习，天天向上！！！！

※ 来源:·BBS 荔园晨风站 bbs.szu.edu.cn·[FROM: 192.168.11.111]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店