- Registriert
- 30.10.06
- Beiträge
- 32
Hallo Forum,
ich mache schon seit einigen Stunden an einem Script rum und finde den Fehler einfach nicht. Hoffentlich kann mir jemand einen Tipp geben.
Das Script soll in Quark Xpress Textteile Suchen und an bestimmten Stellen Kernen; z.B. soll bei der Abkürzung "z.B." nach dem ersten Punkt um 20 Einheiten ausgetrieben werden. Wenn ich mein Script laufen lasse, bricht es ohne Fehlermeldung ab (vermutlich irgendwo ab der Zeile "set theList to the ...").
Hier das Script:
Wäre nett, wenn sich das Script jemand anschauen könnte.
Danke!
Michi
ich mache schon seit einigen Stunden an einem Script rum und finde den Fehler einfach nicht. Hoffentlich kann mir jemand einen Tipp geben.
Das Script soll in Quark Xpress Textteile Suchen und an bestimmten Stellen Kernen; z.B. soll bei der Abkürzung "z.B." nach dem ersten Punkt um 20 Einheiten ausgetrieben werden. Wenn ich mein Script laufen lasse, bricht es ohne Fehlermeldung ab (vermutlich irgendwo ab der Zeile "set theList to the ...").
Hier das Script:
Code:
global measurements
global theList
global theMatchingText
tell application "QuarkXPress Passport"
activate
set measurements showing to false
my kernScript("z.B.", 2, 18)
my kernScript("Dr. ", 3, -22)
set measurements showing to true
end tell
on kernScript(kernwort, kernStelle, kernWert)
tell document 1 of application "QuarkXPress Passport"
try
set theList to the object reference of every text of every story where it is kernwort
if class of theList is not list then copy (coerce theList to list) to theList
on error
tell application "QuarkXPress Passport" to set measurements showing to true
end try
repeat with i from 1 to the number of items in theList
set theMatchingText to item i of theList
if kernStelle then set the kern of character kernStelle of theMatchingText to kernWert
end repeat
end tell
end kernScript
Danke!
Michi