Eigene Dokumenteigenschaften auslesen und setzen

In diesem Beispiel wird zunächst eine eigene Dokuemnteigenschaft Zähler gesetzt mit einem vorgegebenen Wert.

Anschließend werden alle selbsterstellten Dokuemnteigenschaften des aktuellen Dokumentes ausgelesen udn aufgelistet mit den zugehörigen Werten.

001
002
003
004
005
006
007
008
009
010
011
012
013
014
015
016
017
018
019
020
021
022

Sub DokuEigenschaft_eigene()

     'eigene Dokumentvariable hinzufügen
    ActiveDocument.CustomDocumentProperties.Add Name:="Zähler", _
        LinkToContent:=False, _
        Value:="5", _
        Type:=msoPropertyTypeString

     'alle selbst erstellten Dokuvariablen auslesen
    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

End Sub

Die Zeile 4 erzeugt einen Fehler, wenn die Eigenschaft bereits existiert. Dies ist hier nur zu Demonstationszwecken enthalten.

zurück zur Übersicht Dokumenteigenschaften