Handbuch BasicMaker 2010 - SoftMaker

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 pm as Object
Set pm = CreateObject("PlanMaker.Application")
pm.Workbooks.Add ' Neues leeres Dokument hinzufügen
With pm.ActiveWorkbook
' 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()
Dim pm as Object
Set pm = CreateObject("PlanMaker.Application")
pm.Workbooks.Add ' Neues leeres Dokument hinzufügen
With pm.ActiveWorkbook
' Neuen Titel setzen (mit Hilfe der numerischen Konstante smoPropertyTitle)
.BuiltInDocumentProperties(smoPropertyTitle) = "Neuer Titel"
' Genau diese Eigenschaft wieder auslesen (diesmal über den String)
MsgBox .BuiltInDocumentProperties("Title")
End With
End Sub
Valid (Eigenschaft, R/O)
Datentyp: Boolean
Liefert True zurück, wenn die Dokumenteigenschaft bei PlanMaker verfügbar ist.
Hintergrund: Die Liste der möglichen Dokumenteigenschaften enthält auch solche, die nur bei TextMaker verfügbar
sind (zum Beispiel smoPropertyChapters, "Number of chapters"). Sie dürfen bei PlanMaker nur diejenigen Dokumenteigenschaften
abfragen, die PlanMaker kennt – sonst wird ein Leerwert zurückgegeben (VT_EMPTY).
Die Eigenschaft Valid lässt Sie vor der Abfrage prüfen, ob die jeweilige Dokumenteigenschaft bei PlanMaker vorhanden
ist. Beispiel:
Sub Test
Dim pm as Object
Dim i as Integer
Set pm = CreateObject("PlanMaker.Application")
pm.Visible = True
pm.Workbooks.Add ' leeres Dokument hinzufügen
With pm.ActiveWorkbook
For i = 1 to .BuiltInDocumentProperties.Count
202 BasicMaker und PlanMaker Handbuch BasicMaker 2010