Document.BuiltInDocumentProperties プロパティ (Word)

  • [アーティクル]

指定した文書のすべての組み込みドキュメント プロパティを表す オートメーション コレクションを返します。

構文

式。 BuiltInDocumentProperties

expression 必須です。 Document オブジェクトを表す変数を指定します。

注釈

特定の組み込み文書プロパティを表す単一の DocumentProperty オブジェクトを返すには、 BuiltinDocumentProperties プロパティを使用します。 Microsoft Word の組み込みのドキュメント プロパティのいずれかの値が定義されていない、そのドキュメント プロパティに対する Value プロパティを読み取り中、エラーが発生します。

コレクションの 1 つのメンバーを返す方法については、「コレクション からオブジェクトを返す」を参照してください。

CustomDocumentProperties プロパティを使用して、カスタム ドキュメント プロパティのコレクションを取得します。

例

次の使用例は、作業中の文書の末尾にあらかじめ用意されているプロパティの一覧を挿入します。

Sub ListProperties() 
 Dim rngDoc As Range 
 Dim proDoc As DocumentProperty 
 
 Set rngDoc = ActiveDocument.Content 
 
 rngDoc.Collapse Direction:=wdCollapseEnd 
 
 For Each proDoc In ActiveDocument.BuiltInDocumentProperties 
 With rngDoc 
 .InsertParagraphAfter 
 .InsertAfter proDoc.Name & "= " 
 On Error Resume Next 
 .InsertAfter proDoc.Value 
 End With 
 Next 
End Sub

次の使用例は、作業中の文書の単語数を表示します。

Sub DisplayTotalWords() 
 Dim intWords As Integer 
 intWords = ActiveDocument.BuiltInDocumentProperties(wdPropertyWords) 
 MsgBox "This document contains " & intWords & " words." 
End Sub

関連項目

ドキュメント オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。