次の方法で共有


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 のサポートおよびフィードバックを参照してください。