Handbuch BasicMaker 2010 - SoftMaker

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(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 TextMaker verfügbar ist.
Hintergrund: Die Liste der möglichen Dokumenteigenschaften enthält auch solche, die nur bei PlanMaker verfügbar
sind (zum Beispiel smoPropertySheets, "Number of sheets"). Sie dürfen bei TextMaker nur diejenigen Dokumenteigenschaften
abfragen, die TextMaker 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 TextMaker vorhanden
ist. Beispiel:
Sub Test
Dim tm as Object
Dim i as Integer
Set tm = CreateObject("TextMaker.Application")
tm.Visible = True
tm.Documents.Add ' leeres Dokument hinzufügen
With tm.ActiveDocument
For i = 1 to .BuiltInDocumentProperties.Count
If .BuiltInDocumentProperties(i).Valid then
print i, .BuiltInDocumentProperties(i).Name, "=", _
.BuiltInDocumentProperties(i).Value
Else
print i, "Nicht bei TextMaker verfügbar"
End If
Next i
End With
End Sub
Type (Eigenschaft, R/O)
Datentyp: Long (SmoDocProperties)
Liefert den Datentyp der Dokumenteigenschaft. Damit Sie eine Dokumenteigenschaft richtig auswerten können, müssen
Sie ihren Typ wissen. Beispielsweise ist Title (smoPropertyTitle) ein String, Creation Date
(smoPropertyTimeCreated) hingegen ein Datum. Mögliche Werte:
smoPropertyTypeBoolean
smoPropertyTypeDate
smoPropertyTypeFloat
smoPropertyTypeNumber
smoPropertyTypeString
= 0 ' Boolean
= 1 ' Datum
= 2 ' Fließkommawert
= 3 ' Ganzzahl
= 4 ' Zeichenkette
Handbuch BasicMaker 2010 BasicMaker und TextMaker 91