Field オブジェクト (Publisher)
フィールドを表します。 Field オブジェクトは、 フィールド のメンバー コレクションです。 Fields コレクションは、選択範囲、指定範囲、または文書内のフィールドを表します。
pbFieldPageNumber 定数は、すべてのさまざまなフィールド型を含む定数の PbFieldType グループのメンバーです。
単一の Field オブジェクトを返すには、TextRange.Fields (index) を使用します。index はインデックス番号です。 インデックス番号は、選択範囲、指定範囲、または文書内でのフィールドの位置を表します。
次の例では、作業中の文書内のフィールドの数をカウントし、その数をメッセージに表示します。
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 のサポートおよびフィードバックを参照してください。