请问VBA中的常量在什么地方可以查询啊？

allex81

如wdHeaderFooterPrimary，wdReplaceAll，wdSelectionNormal，wdSelectionIP等，我在帮助里面查不到，请版主指点。

konggs

最后不就是吗?

守柔

这主要是你对VBA帮助不熟悉所致。通常情况下，每一个常量，在对应的属性/方法中，都有描述。比如：

Replace Variant 类型，可选。指定执行替换的个数：一个、全部或者不替换。可取下列 WdReplace 常量之一。

WdReplace 可以是下列 WdReplace 常量之一：

wdReplaceAll

wdReplaceNone

wdReplaceOne

你单击WdReplace就会出现以下常量部分。

另外，你可以在VBE的对象浏览器中（按下F2）输入WdReplace，回车或者单击搜索命令即可找到。

通常在相应的属性/方法中，有描述或相关引用

zhqsong

我也有同样的疑问。版主找到的我也找到了，可是每一个明细的具体含义呢？

比如：我查找select.type的可取值，得到如下常量，那么wdNoSelection究竟是什么意思呢？

Selection

此属性返回选择类型。可取下列 WdSelectionType 常量之一：wdNoSelection、wdSelectionBlock、wdSelectionColumn、wdSelectionFrame、wdSelectionInlineShape、wdSelectionIP、wdSelectionNormal、wdSelectionRow 或 wdSelectionShape。Long 类型，只读。

守柔

有时需要体会，因为我的英文也不好。但绝大部分常量可以从字面上理解，另外可以通过录制宏和反推进行理解。

zhqsong

谢谢版主。这就是说没有现成的资料了。我没有测试出wdNoSelection的意思，按字面理解应该是没有选择，但实际测试不是这样[em06]

守柔

我觉得wdNoselection好象是光标不页面中，或者丢失光标位置吧，我也试不出，我目前觉得它的意义是在代码中，比如，只要SELECTION.TYPE<>WDNOSELECTION 则……

以下是一些参考资料，不过也没有说到这个的意义

确定选择类型

有多种不同的选择类型；如果执行了选择操作，应当知道选择了什么，这一点很重要。例如，如果对表中的某列执行一项操作，应确保选中该列以避免引发运行时错误。利用 Selection 对象的 Type 属性很容易实现此目的。Type 属性包括 WdSelectionType 的下列枚举，您可以在代码中使用这些枚举来确定选择了什么：

wdSelectionBlock

wdSelectionColumn

wdSelectionFrame

wdSelectionInlineShape

wdSelectionIP

wdSelectionNormal

wdNoSelection

wdSelectionRow

wdSelectionShape

大部分枚举的作用都体现在它们的名称中，但有些枚举不是很明晰。例如，wdSelectionIP 表示插入点。枚举 wdInlineShape 表示图像或图片。枚举 wdSelectionNormal 表示选中的文本，或者文本与其他选中的对象的组合。

以下过程中的代码使用 Selection 的 Type 属性来确定选择类型。然后，代码将使用 Case 结构将值存储在一个字符串变量中，该字符串变量将显示在 MessageBox 中。

' Visual Basic

Friend Sub SelectionType()

Dim str As String

Select Case ThisApplication.Selection.Type

Case Word.WdSelectionType.wdSelectionBlock

str = "wdSelectionBlock"

Case Word.WdSelectionType.wdSelectionColumn

str = "wdSelectionColumn"

Case Word.WdSelectionType.wdSelectionFrame

str = "wdSelectionFrame"

Case Word.WdSelectionType.wdSelectionInlineShape

str = "wdSelectionInlineShape"

Case Word.WdSelectionType.wdSelectionIP

str = "wdSelectionIP"

Case Word.WdSelectionType.wdSelectionNormal

str = "wdSelectionNormal"

Case Word.WdSelectionType.wdNoSelection

str = "wdNoSelection"

Case Word.WdSelectionType.wdSelectionRow

str = "wdSelectionRow"

Case Else

str = "???"

End Select

MSGBox str

End Sub

[此贴子已经被作者于2005-12-1 17:26:40编辑过]

liangdx

还不是很明白.不过感谢版主.