发布服务器) (Field 对象
表示一个字段。 Field 对象是 域 的成员 集合。 Fields 集合代表选定内容、 范围或出版物中的字段。
pbFieldPageNumber 常量是 PbFieldType 常量组的成员,其中包括所有不同的字段类型。
使用 TextRange.Fields (索引) (其中 index 是索引号)返回单个 Field 对象。 索引号代表选定内容、 范围或出版物中字段的位置。
以下示例对当前出版物中的字段数进行计数,并在消息中显示计数。
Sub CountFields()
Dim pagPage As Page
Dim shpShape As Shape
Dim fldField As Field
Dim intFields As Integer
Dim intCount As Integer
For Each pagPage In ActiveDocument.Pages
For Each shpShape In pagPage.Shapes
If shpShape.Type = pbTextFrame Then
intCount = intCount + shpShape.TextFrame.TextRange.Fields.Count
End If
Next
Next
If intCount > 0 Then
MsgBox "You have " & intCount & " fields in your publication."
Else
MsgBox "You have no fields in your publication."
End If
End Sub
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。