Publisher) (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 支援與意見反應。