ドキュメントでカスタムドキュメントプロパティを頻繁に使用する場合は、それらの値を印刷する方法が必要になる場合があります。 （カスタムドキュメントプロパティは、ドキュメントの変数のようなものです。VBAプログラミングで多くの用途があります。）

残念ながら、それらを直接印刷するコマンドや機能はありません。

ただし、プロパティを新しいドキュメントにコピーしてから、そのドキュメントを印刷することはできます。

基本的には、新しいドキュメントを作成してから、古いドキュメントのすべてのカスタムプロパティをステップ実行し、それらの名前と値を新しいドキュメントにコピーするだけです。これを行うには、次に示すように、CustomDocumentPropertiesコレクションのCountプロパティを使用します。

Sub PrintDocProps()

Dim iPropCount As Integer     Dim i As Integer     Dim docSource As Document     Dim docTarget As Document

Set docSource = ActiveDocument     Set docTarget = Documents.Add

docTarget.Activate

iPropCount = docSource.CustomDocumentProperties.Count

Selection.TypeText Text:="There are "

If iPropCount > 0 Then         Selection.TypeText Text:=iPropCount     Else         Selection.TypeText Text:="no"

End If     Selection.TypeText Text:=" custom properties in the document."

Selection.InsertParagraph     Selection.InsertParagraph

For i = 1 to iPropCount         Selection.TypeText _           Text:=docSource.CustomDocumentProperties(i).Name         Selection.TypeText Text:="Value: "

Selection.TypeText _           Text:=docSource.CustomDocumentProperties(i).Value         Selection.InsertParagraph         Selection.InsertParagraph         Selection.InsertParagraph     Next i End Sub

このコードは問題なく機能しますが、それほど堅牢ではありません。たとえば、ソースドキュメントに実際にカスタムプロパティがあるかどうかはチェックされません。あることを前提としています。ただし、このようなコーディングは簡単に追加できます。

注：

このページ（または_WordTips_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

link：/ wordribbon-WordTipsMacros [ここをクリックして、新しいブラウザタブでその特別なページを開きます]。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（529）は、Microsoft Word 97、2000、2002、および2003に適用されます。Wordのリボンインターフェイス（Word 2007）用のこのヒントのバージョンを見つけることができます。以降）ここ：

link：/ wordribbon-Printing_Custom_Properties [カスタムプロパティの印刷]。