指定されたドキュメントのすべてのカスタム ドキュメント プロパティを表す DocumentProperties コレクションを返します。
構文
式。CustomDocumentProperties
expression 必須です。 Document オブジェクトを表す変数を指定します。
注釈
BuiltInDocumentProperties プロパティを使用して、組み込みのドキュメント プロパティのコレクションを取得します。
msoPropertyTypeString 型 (MsoDocProperties) のプロパティの長さは 255 文字を超えることはできません。
コレクションの 1 つのメンバーを返す方法の詳細については、「 コレクションからオブジェクトを返す」を参照してください。
例
この例では、アクティブなドキュメントの最後にカスタム ドキュメント プロパティのリストを挿入します。
Set myRange = ActiveDocument.Content
myRange.Collapse Direction:=wdCollapseEnd
For Each prop In ActiveDocument.CustomDocumentProperties
With myRange
.InsertParagraphAfter
.InsertAfter prop.Name & "= "
.InsertAfter prop.Value
End With
Next
この例では、カスタム ドキュメント プロパティを Sales.doc に追加します。
thename = InputBox("Please type your name", "Name")
Documents("Sales.doc").CustomDocumentProperties.Add _
Name:="YourName", LinkToContent:=False, Value:=thename, _
Type:=msoPropertyTypeString
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。