' Benutzerdefinierte Dokumenteigenschaft hinzufügen und Wert zuweisen
Sub Dokumenteigenschaften_Custom_hinzufügen()
ActiveWorkbook.CustomDocumentProperties.Add _
Name:="NeueEigenschaft", _
LinkToContent:=False, _
Type:=msoPropertyTypeString, _
Value:="Inhalt"
End Sub
Dieser Tipp ist vom 06.06.2005