使用英语阅读

通过


发布服务器) (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 支持和反馈,获取有关如何接收支持和提供反馈的指南。