Hier das Skript:
Code:
im tm as Object
Dim x as Object
Dim i as Integer
Dim Answer as integer
' Mit TextMaker verbinden; TextMaker starten, wenn er noch nicht läuft
Set tm = CreateObject("TextMaker.Application")
' Die entsprechende Datei öffnen mit Pfadangabe in "", 3 leere Parameter, Format
tm.Documents.Open "C:\Windows\Temp\XXST.new", Empty, Empty, Empty, tmFormatPlainTextDOS
' Alles markieren
tm.ActiveDocument.Select
' Markiertes formatieren
tm.ActiveDocument.Selection.Font.Name = "Bitstream Vera Sans Mono"
tm.ActiveDocument.Selection.Font.Size = "8,5"
tm.ActiveDocument.Selection.Font.Bold = True
' Markiertes in die Zwischenablage kopieren
tm.ActiveDocument.Selection.Copy
' ohne zu speichern, Dokument schließen
tm.ActiveDocument.Close smoDoNotSaveChanges
' Ursprungsdatei löschen
' Kill "C:\Windows\Temp\XXST.new"
' TextMaker sichtbar machen
tm.Visible = TRUE
' TextMaker-Programmfenster maximieren
tm.WindowState = tmWindowStateMaximize
' Fokus auf TextMaker, damit SendKeys auf jeden Fall ans richtige Fenster geht
tm.Activate
' TM-Vorlage öffnen
tm.Documents.add "C:\GSEU\Briefkopfoekohaus.tmv"
' Inhalt aus der Zwischenablage einfügen
tm.ActiveDocument.Selection.Paste
' unverändertes Dokument ohne Nachfrage schließen zu können
tm.ActiveDocument.saved = True
Hier die Formatierungen aus dem Skript:
Code:
tm.ActiveDocument.Selection.Font.Name = "Bitstream Vera Sans Mono"
tm.ActiveDocument.Selection.Font.Size = "8,5"
tm.ActiveDocument.Selection.Font.Bold = True
Ich nahm die Schriftgröße heraus und dann reagierte die Formatierung mit Schriftart und -gewicht.
Schriftgröße wieder rein und jetzt funktioniert es wie gehabt.
An der Oberfläche des Skriptes gibt es halt keine Veränderung. Aber könnte es irgendwelche Ungenauigkeiten/Unzuverlässigkeiten/Zufallswirkungen beim Interpreter geben? Ich kenne mich da nicht aus, weiß wohl, dass hinter dem BasicMaker-Skript noch eine Programmiersprache stecken muss, die das sauber zu verarbeiten hat. Und wie da die Befehle und Funktionen gesetzt sind ......
Anmelden
Registrieren
FAQ
Suche
