Ich habe dir mal ein Script geschrieben, das bei einem Aufruf alle in TM geöffnete Dokumentenbezeichnungen verarbeitet und nach dem erstmaligen Auruf nur noch aufgerufen werden muss, wenn sich die Zusammensetzung der Dokumente ändert. Das Script generiert ein zweites Script, von mir SC2 genannt, das bei geöffnetem TM alle Dokumente lädt.
Anzupassen ist noch xxxx mit deinem Usernamen.
Um Klicks zu sparen, würde ich den Aufruf beider Scripte auf die Symbolleiste von TM legen. Wie das geht steht im Handbuch und wurde auch schon ausführlich im Forum behandelt.
Zitat:
Dim tm as Object
Dim x as integer
Dim t as String
Set tm = CreateObject("TextMaker.Application")
tm.Application.Visible = True
tm.Activate
t = chr(34) & "TextMaker.Application" & chr(34)
Open "C:\Users\xxx\Documents\SoftMaker\SC2.bas" For Output As #1 ' Datei anlegen
print #1, "Dim tm as Object"
print #1, "Set tm = CreateObject(" & T & ")"
print #1, " tm.Application.Visible = True"
print #1, " tm.Activate"
for x = 1 to tm.Documents.Count
print #1, "tm.Documents.Open" & " " & chr(34) & tm.Documents(x).FullName & chr(34)
next x
print #1, "Set tm = Nothing"
Close #1
Set tm = Nothing
Anmerkung für SoftmakerWenn in einer Anweisung, wie z.B.
Zitat:
print #1, " "
weitere Hochkommatas auftreten, meldet der Interpreter einen Fehler. Als workaround habe ich den Umweg über chr(34) gemacht.