Wenn Sie in Ihren Dokumenten häufig benutzerdefinierte Dokumenteigenschaften verwenden, möchten Sie möglicherweise eine Möglichkeit zum Drucken ihrer Werte. (Benutzerdefinierte Dokumenteigenschaften sind wie Variablen für ein Dokument. Sie haben viele Verwendungsmöglichkeiten in der VBA-Programmierung.)

Leider gibt es keinen Befehl oder keine Funktion, um sie direkt zu drucken.

Sie können die Eigenschaften jedoch in ein neues Dokument kopieren und dieses Dokument dann drucken.

Grundsätzlich müssen Sie lediglich ein neues Dokument erstellen und dann alle benutzerdefinierten Eigenschaften des alten Dokuments durchlaufen und deren Namen und Werte in das neue Dokument kopieren. Sie können dies tun, indem Sie die Count-Eigenschaft der CustomDocumentProperties-Auflistung verwenden, wie im Folgenden gezeigt:

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

Dieser Code funktioniert zwar einwandfrei, ist aber nicht besonders robust. Beispielsweise wird nicht überprüft, ob das Quelldokument tatsächlich benutzerdefinierte Eigenschaften enthält. es wird nur davon ausgegangen, dass es solche gibt. Eine solche Codierung könnte jedoch leicht hinzugefügt werden.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (529) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier: