Textmaker document.Close

Fehlerberichte, Hilfe und Anregungen zu BasicMaker 2016 für Windows

Moderator: SoftMaker Team

Antworten
Benutzeravatar
Get
Beiträge: 167
Registriert: 08.12.2014 13:39:39
Kontaktdaten:

Textmaker document.Close

Beitrag von Get » 07.10.2017 14:37:44

Hallo,
ich habe ein kleines Skript geschrieben, um in Textmaker einen markierten Textbereich zu drucken (siehe Textmaker-Forum)
Das Skript:

Code: Alles auswählen

Sub printsel()

	Dim tm, newDoc as Object

	Set tm = CreateObject("TextMaker.Application")

	tm.Visible = TRUE
	tm.ActiveDocument.Selection.Copy
	Set newDoc = tm.Documents.Add
	newDoc.Selection.Paste
	newDoc.PrintOut
	' newDoc.Close ---------------Wenn der Befehl Close ausgeführt wird, stürzt Textmaker ab.
	Set tm = Nothing
End Sub
Alles funktioniert, bis auf den Close-Befehl, d.h. in einem Textmaker-Dokument eine Passage markieren - das Skript aufrufen - ein neues tmd wird erzeugt, der kopierte inhalt hineingeschrieben, - Text wird gedruckt. Dann steigt Textmaker aus. (siehe Bild)
tmd.JPG
tmd.JPG (22.45 KiB) 1383 mal betrachtet
Was mache ich falsch?
Gerhard Etzel
Autor (gerhard-etzel-buch.de). Meine Kriminalromane wurden mit Textmaker geschrieben!
Windows 10, SMO 2018 Prof.

PeterQ
SoftMaker Volunteers
SoftMaker Volunteers
Beiträge: 1615
Registriert: 09.03.2009 17:32:30
Kontaktdaten:

Re: Textmaker document.Close

Beitrag von PeterQ » 07.10.2017 15:10:57

Code: Alles auswählen

' Das aktive Dokument schließen ohne es zu speichern
tm.ActiveDocument.Close smoDoNotSaveChanges
Klappt bei mir.
(1) SMO 2018 Beta - OpenSuse 42.2 64 bit KDE Plasma 5.8.6
(2) SMO 2018 - WINE 32 bit in OpenSuse 42.2 64 bit
(3) SMO 2016 - Windows 7 32 bit

Benutzeravatar
Get
Beiträge: 167
Registriert: 08.12.2014 13:39:39
Kontaktdaten:

Re: Textmaker document.Close

Beitrag von Get » 07.10.2017 17:20:38

Klappt bei mir leider nicht: WIN 10 (64 Bit), Softmaker 2016, re 766.0331
Gerhard Etzel
Autor (gerhard-etzel-buch.de). Meine Kriminalromane wurden mit Textmaker geschrieben!
Windows 10, SMO 2018 Prof.

PeterQ
SoftMaker Volunteers
SoftMaker Volunteers
Beiträge: 1615
Registriert: 09.03.2009 17:32:30
Kontaktdaten:

Re: Textmaker document.Close

Beitrag von PeterQ » 07.10.2017 18:25:34

Ich habe es jetzt auf einen Rechner mit Windows 10 ausprobiert, es funktioniert hier ebenfalls. Allerdings habe ich das Script aus dem offenen BasicMaker ausgeführt. Ich weiß nicht, wie es sich über einen benutzerdefinierten Befehl in der Symbolleiste verhält.

Das Script sieht dann so aus:

Code: Alles auswählen

Sub printsel()

Dim tm, newDoc as Object

Set tm = CreateObject("TextMaker.Application")

tm.Visible = TRUE
tm.ActiveDocument.Selection.Copy
Set newDoc = tm.Documents.Add
newDoc.Selection.Paste
newDoc.PrintOut

' Das aktive Dokument schließen ohne es zu speichern
tm.ActiveDocument.Close smoDoNotSaveChanges

Set tm = Nothing
End Sub
(1) SMO 2018 Beta - OpenSuse 42.2 64 bit KDE Plasma 5.8.6
(2) SMO 2018 - WINE 32 bit in OpenSuse 42.2 64 bit
(3) SMO 2016 - Windows 7 32 bit

Benutzeravatar
Get
Beiträge: 167
Registriert: 08.12.2014 13:39:39
Kontaktdaten:

Re: Textmaker document.Close

Beitrag von Get » 07.10.2017 20:00:01

Stimmt, so klappt es bei mir auch. Aber :
Textmaker öffnen
Datei laden
Auswahl markieren
Menü: Weiteres - Script starten - printsel.bas ausführen: Textmaker hängt sich am Ende auf.
Habe einen crash-report an softmaker geschickt.
Gerhard Etzel
Autor (gerhard-etzel-buch.de). Meine Kriminalromane wurden mit Textmaker geschrieben!
Windows 10, SMO 2018 Prof.

PeterQ
SoftMaker Volunteers
SoftMaker Volunteers
Beiträge: 1615
Registriert: 09.03.2009 17:32:30
Kontaktdaten:

Re: Textmaker document.Close

Beitrag von PeterQ » 07.10.2017 20:58:58

Den Crash kann ich bestätigen, wenn das Script über [Weiteres] [Script starten] aufgerufen wird. Da ist tatsächlich der Wurm drin.
(1) SMO 2018 Beta - OpenSuse 42.2 64 bit KDE Plasma 5.8.6
(2) SMO 2018 - WINE 32 bit in OpenSuse 42.2 64 bit
(3) SMO 2016 - Windows 7 32 bit

Antworten

Zurück zu „BasicMaker 2016 für Windows“