Yes, that looks very good. I think that works now too.
If I notice anything else, I’ll let you know
Yes, that looks very good. I think that works now too.
If I notice anything else, I’ll let you know
Was ist denn der praktische Unterschied zwischen selected records
und selection
? (Ich erlaube mir mal wieder auf Deutsch zu schreiben). Oder geht es in dieser Änderung nur darum, den aktuellen Wert der Auswahl zwischenzuspeichern, sodass set theSelection to selected records
ebenso funktionieren würde?
Der wesentliche Unterschied der Änderung ist v.a., dass die Auswahl zwischengespeichert wird, da sie sich ändern kann durch das Skript.
Danke. selection
bzw. selected records
ist also sozusagen eine “live reference”. Das wäre vielleicht eine Erwähnung in der Dokumentation wert?
Das trifft eigentlich auf jede Eigenschaft zu, dass sie sich durch Skripte ändern kann, sofern sie nicht in Variablen gespeichert wird.
Magst du bitte noch das funktionierende Skript in seiner Vollständigkeit hier posten? Das hilft anderen vielleicht
Wenn du ein Skript postest, dann bitte eingebettet in ``` (jeweils auf einer eigenen Zeile vor und nach deinem Skript). Dann wird das Skript im Forum sauber gerendert.
Danke
Sorry für die Verspätung, hätte ich beinahe vergessen. Na klar, hier das funktionsfähige komplette Script:
-- Convert Pages documents to PDF
property extensionList : {"pages"}
tell application id "DNtp"
set theFolder to path to desktop folder as string --Schreibtisch als Pfad für die Konvertierung
set theSelection to the selection
repeat with theRecord in theSelection
set thePath to (path of theRecord) as POSIX file
set theFile to thePath as alias
set theName to filename of theRecord --Dateiname aus DevonThink
tell application "Finder"
set ext to name extension of theFile
if ext is in extensionList then
set theFilename to characters 1 through ((length of theName) - (length of ext) - 1) of theName as string
set theFilename to theFilename & ".pdf"
set theConvertedPath to (theFolder & theFilename as string)
tell application "Pages"
set theDoc to open theFile
export theDoc as PDF to file theConvertedPath
close theDoc
end tell
tell application id "DNtp" to import POSIX path of theConvertedPath to (parent 1 of theRecord)
if exists theConvertedPath then tell application "Finder" to delete theConvertedPath --löschen des konvertierten Files vom Schreibtisch
end if
end tell
end repeat
end tell
Viel Spaß