Hallo willem,
das folgende Script funktioniert, aber es hat keine Fehler-Meldung-Vorbeugung
eingebaut, damit das Ganze nicht zu lang wird. Achtung: der Name des XPress-
Dokuments darf nicht länger als 22 Buchstaben sein. Weil er als Name der
EPS-Files verwendet wird, plus "_text.eps" bzw. "_bild.eps".
Das Script in ein leeres Fenster des Skripteditors kopieren. Den Namen von
QuarkXPress in der ersten Zeile abändern, damit er genau jenem entspricht mit
welchem die XPress-Programmdatei benannt ist. Sonst kommt beim Testen der Syntax
ein Dialog mit der Frage: "Wo ist 'QuarkXPress 4.11'"? Kein Problem: im Dialog
zum XPress-Programm-Ordner navigieren, die Programmdatei auswählen und "Öffnen"
klicken. Der Name im Script wird daraufhin automatisch angepasst und das Script
lässt sich ausführen.
Zuerst aber ein Dokument öffnen. Beim Ausführen des Scripts werden alle Bilder
entfernt und die Seite als EPS gesichert. Dann wird das Dokument geschlossen,
ohne zu sichern und gleich wieder geöffnet. Nur so kann man per Script zur
alten Fassung zurück. Anschliessend wird aller Text entfernt, die Seite wird
als EPS gesichert. Das Dokument wird nochmals geschlossen und wieder in alter
Pracht geöffnet. Zum Schluss wird der Dialog "Fertig." gezeigt.
---
tell application "QuarkXPress 4.11"
activate
tell document 1
set filePath to (get file path) as string
set AppleScript's text item delimiters to {":"}
set folderPath to (text items 1 thru -2 of filePath as string) & ":"
set AppleScript's text item delimiters to {""}
set docName to name as text
tell every picture box
delete image 1
end tell
set textPath to folderPath & docName & "_text.eps"
save page 1 in textPath EPS format Mac color EPS data binary EPS
end tell
close document 1 saving no
open filePath use doc prefs yes remap fonts no do auto picture import no
tell document 1
tell every text box
delete story 1
end tell
set pictPath to folderPath & docName & "_bild.eps"
save page 1 in pictPath EPS format Mac color EPS data binary EPS
end tell
close document 1 saving no
open filePath use doc prefs yes remap fonts no do auto picture import no
display dialog "Fertig." buttons "OK" default button 1 with icon 1
end tell
---
Ich kann ich Dir eine längere Version davon - mit eingebauter Fehler-Meldung-
Vorbeugung - senden. Auch eine Erweiterung auf mehrere Seiten ist möglich.
Wenn Du interessiert bist, dann schicke mir Deine Mail-Adresse.
Hans Haesler
als Antwort auf: [#417997]