Handbuch BasicMaker 2010 - SoftMaker

Für jedes geöffnete Dokument existiert genau eine Instanz dieser DocumentProperties-Sammlung, nämlich
BuiltInDocumentProperties im Document-Objekt:
' Den Titel des aktiven Dokuments auf "Meine Memoiren" setzen
tm.ActiveDocument.BuiltInDocumentProperties.Item(smoPropertyTitle) = "Meine Memoiren"
3 Eigenschaften, Objekte, Sammlungen und Methoden
Eigenschaften:
Name R/O
Value (Defaulteigenschaft)
Valid
Type
Objekte:
Application Application
Parent BuiltInDocumentProperties
Name (Eigenschaft, R/O)
Datentyp: String
Liefert den Namen der Dokumenteigenschaft. Beispiele:
' Den Namen der Dokumenteigenschaft smoPropertyTitle ausgeben, also "Title"
MsgBox tm.ActiveDocument.BuiltInDocumentProperties.Item(smoPropertyTitle).Name
' Den Namen der Dokumenteigenschaft "Author" ausgeben, also "Author"
MsgBox tm.ActiveDocument.BuiltInDocumentProperties.Item("Author").Name
Value (Eigenschaft)
Datentyp: String
Liest oder setzt den Inhalt der Dokumenteigenschaft.
Das folgende Beispiel setzt die Dokumenteigenschaft "Titel" über die numerische Konstante smoPropertyTitle und
liest sie gleich wieder über die Stringkonstante "Title" aus:
Sub Beispiel()
Dim tm as Object
Set tm = CreateObject("TextMaker.Application")
tm.Documents.Add ' Neues leeres Dokument hinzufügen
With tm.ActiveDocument
' Neuen Titel setzen (mit Hilfe der numerischen Konstante smoPropertyTitle)
.BuiltInDocumentProperties.Item(smoPropertyTitle).Value = "Neuer Titel"
' Genau diese Eigenschaft wieder auslesen (diesmal über den String)
MsgBox .BuiltInDocumentProperties.Item("Title").Value
End With
End Sub
Da Item das Defaultobjekt von DocumentProperties ist und Value die Defaulteigenschaft von DocumentProperty,
lässt sich dieses Beispiel übersichtlicher wie folgt schreiben:
Sub Beispiel()
90 BasicMaker und TextMaker Handbuch BasicMaker 2010