Handbuch BasicMaker 2010 - SoftMaker

Beispiel
Abschließend ein Beispiel, das die Anwendung von OLE Automation in der Praxis demonstriert. Das Beispiel verwendet
die Sammlung Documents von TextMaker, die für alle derzeit geöffneten Dokumente steht. Erst wird ermittelt, wie
viele Dokumente gerade geöffnet sind. Anschließend werden die Namen der geöffneten Dokumente ausgegeben.
Schließlich werden die Dokumente geschlossen.
Tipp: Ausführliche Informationen zu den Themen "BasicMaker und TextMaker" sowie "BasicMaker und PlanMaker"
finden Sie in den gleichnamigen Kapiteln.
Sub Main
Dim tm As Object
Set tm = CreateObject("TextMaker.Application")
tm.Visible = TRUE
tm.Activate
tm.Documents.Add
tm.Documents.Add
tm.Documents.Add
' TM sichtbar machen
' TM in den Vordergrund bringen
' Drei neue Dokumente anlegen
Print tm.Documents.Count & " Dokumente geöffnet"
Dim x As Object
For Each x in tm.Documents
Print x.Name ' Namen der Dokumente ausgeben
Next
tm.Documents.Close
Set tm = Nothing
' Alle Dokumente schließen
' Verbindung zu TM beenden
End Sub
50 Sprachelemente von SoftMaker Basic Handbuch BasicMaker 2010