InDesignCSx - Textframes splitten

TMA

Hallo zusammen,
Habe mehrere InDesignCS3-Dokumente.
In diesen sind mehrere Textboxen mit mehreren Zeilen an Text (Absätze) teilweise in verschiedenen Textgrößen pro Absatz.

Beispiel an einer textbox:
zeile 1 bla
zeile 2 fgjfghkfjghsdg
zeile 3 fgkjalfghja
...

Ich möchte nun die jeweilige Textbox aufsplitten, so das jeder Absatz in einer neuen Textbox steht.

Also bei einer Textbox mit 3 Absätzen möchte ich nachher 3 einzelne Textboxen haben mit jeweils einem Absatz drin. Das ganze natürlich Standgenau zur alten Textbox die es nachher nicht mehr geben soll.
Zudem sollen die neuen Bounds der Textboxen möglichst knapp beschnitten sein (fit to text oder so).

Wie mache ich das am besten oder hat jemand schon so ein code?
Ich meine die paragraphen auslesen ist kein Problem aber das es nachher Standgenau wieder aussehen soll. Da muss man bestimmt einiges mit den Bounds und der Schriftgröße berechnen, oder gehts einfacher?

Das ganze am besten lauffähig für CS2 und CS3.

Gruß und schönes Wochenende
TMA

Hans_Haesler

Hallo TMA,

hier schon mal ein Script. Entwickelt unter CS2 und getestet mit drei einfachen Textrahmen, welche je fünf Absätze enthalten.
[edit: Das Beschränken auf die Auswahl habe ich nachträglich eingefügt.]


tell document 1 of application "Adobe InDesign CS2"
[nbsp] activate
[nbsp] 
[nbsp] try
[nbsp] [nbsp] set allIDs to id of every item of selection ¬
[nbsp] [nbsp] [nbsp] whose content type is text type
[nbsp] on error
[nbsp] [nbsp] display dialog "Es ist kein Textrahmen ausgewählt." buttons ¬
[nbsp] [nbsp] [nbsp] "OK" default button 1 with icon 2
[nbsp] [nbsp] error number -128
[nbsp] end try
[nbsp] 
[nbsp] repeat with i from 1 to count of allIDs
[nbsp] [nbsp] set baseID to item i of allIDs
[nbsp] [nbsp] 
[nbsp] [nbsp] set idList to {}
[nbsp] [nbsp] set baseList to {}
[nbsp] [nbsp] 
[nbsp] [nbsp] repeat 1 times
[nbsp] [nbsp] [nbsp] 
[nbsp] [nbsp] [nbsp] tell text frame id baseID
[nbsp] [nbsp] [nbsp] [nbsp] set nParas to count of paragraphs of parent story
[nbsp] [nbsp] [nbsp] [nbsp] if nParas is 0 then exit repeat
[nbsp] [nbsp] [nbsp] end tell
[nbsp] [nbsp] [nbsp] 
[nbsp] [nbsp] [nbsp] repeat with k from 2 to nParas
[nbsp] [nbsp] [nbsp] [nbsp] tell text frame id baseID
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] tell parent story
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] tell paragraph k
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] set end of baseList to baseline of line 1
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] end tell
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] end tell
[nbsp] [nbsp] [nbsp] [nbsp] end tell
[nbsp] [nbsp] [nbsp] [nbsp] 
[nbsp] [nbsp] [nbsp] [nbsp] set newFrame to duplicate text frame id baseID
[nbsp] [nbsp] [nbsp] [nbsp] set end of idList to id of newFrame
[nbsp] [nbsp] [nbsp] [nbsp] tell newFrame
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] tell parent story
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] try
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] delete (paragraphs (k + 1) thru -1)
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] end try
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] try
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] delete (paragraphs 1 thru -2)
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] end try
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] if (count of characters) is greater than 1 then
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] if contents of character -1 is return then
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] delete character -1
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] end if
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] end if
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] end tell
[nbsp] [nbsp] [nbsp] [nbsp] end tell
[nbsp] [nbsp] [nbsp] end repeat
[nbsp] [nbsp] [nbsp] 
[nbsp] [nbsp] [nbsp] tell text frame id baseID
[nbsp] [nbsp] [nbsp] [nbsp] set {y1, x1, y2, x2} to geometric bounds
[nbsp] [nbsp] [nbsp] [nbsp] tell parent story
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] try
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] delete (paragraphs 2 thru -1)
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] end try
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] if contents of character -1 is return then
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] delete character -1
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] end if
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] set y2 to (baseline of line -1) + 1
[nbsp] [nbsp] [nbsp] [nbsp] end tell
[nbsp] [nbsp] [nbsp] [nbsp] set geometric bounds to {y1, x1, y2, x2}
[nbsp] [nbsp] [nbsp] end tell
[nbsp] [nbsp] [nbsp] 
[nbsp] [nbsp] [nbsp] repeat with k from 1 to count of idList
[nbsp] [nbsp] [nbsp] [nbsp] set curID to item k of idList
[nbsp] [nbsp] [nbsp] [nbsp] tell text frame id curID
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] set {y1, x1, y2, x2} to geometric bounds
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] tell parent story
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] set yDiff to (item k of baseList) - (baseline of line 1)
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] set y2 to (baseline of line -1) + 1
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] end tell
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] set geometric bounds to {y1, x1, y2, x2}
[nbsp] [nbsp] [nbsp] [nbsp] end tell
[nbsp] [nbsp] [nbsp] [nbsp] move text frame id curID by {0, yDiff}
[nbsp] [nbsp] [nbsp] end repeat
[nbsp] [nbsp] [nbsp] 
[nbsp] [nbsp] end repeat
[nbsp] end repeat
end tell

In dieser ersten Version ist nur ein Minimum an Fehlervorbeugung eingebaut. Es gibt bestimmt noch weitere Fallstricke vorauszusehen (z.B. Rahmen mit Übersatz, bei welchem die erste Zeile eines Absatzes nicht sichtbar ist).

Gruss, Hans

TMA

Hallo Hans,
schon mal besten Dank für das Script. Werde es gleich mal testen und schauen wie es so arbeitet.
Beschränkung auf eine Auswahl brauche ich nicht. Es soll vollautomatisch als Droplet dienen und eine Menge Dokumente bearbeiten. Dabei handelt es sich um einfache Dokumente. Visitenkarten, Briefbögen etc..
Deswegen gibt es fast keine Fallstricke. Ist alles recht einfach aufgebaut.

Danke und Gruß
TMA

TMA

Hallo Hans,
habs mal getestet. Unter CS2 läufts super. Bei CS3 kommt folgende Fehlermeldung:

Can't make «class pBas» of line 1 of «class strp» of «class txtf» id 571 of document 1 of application "Adobe InDesign CS3" into type number.

Und zwar zeigt er mir den Befehl "baseline" in dieser Zeile an (letzte repeat-Schleife):

set yDiff to (item k of baseList) - (baseline of line 1)

Im Log-Fenster hört er bei dieser Zeile auf:
get baseline of line 1 of parent story of text frame id 571 of document 1

Ich weis noch nicht warum er das nicht kann.

Gruß
TMA

Hans_Haesler

Hallo TMA,

danke für die Rückmeldung. Wie gesagt, habe ich das Script nur mit CS2 getestet.

Ich werde im Laufe des Abends einen Versuch mit CS3 machen.

Gruss, Hans

Hans_Haesler

Hallo TMA,

ich kann Deine Beobachtung bestätigen. Aber bei meinem ersten Versuch hatte ich zuvor eine andere Fehlermeldung: Weil nur ein Rahmen ausgewählt, war das Ergebnis der ID-Nummern eine Ganzzahl (anstelle der erwarteten Liste). Abhilfe: Die [#0000FF]class[/#] testen und – falls notwendig – das Ergebnis in eine Liste umwandeln:
---
[#0000FF]if[/#] [#0000FF]class[/#] [#0000FF]of[/#] allIDs [#0000FF]is[/#] [#0000FF]not[/#] [#0000FF]list[/#] [#0000FF]then[/#] [#0000FF]set[/#] allIDs [#0000FF]to[/#] {allIDs}
---

Dein gemeldetes Problem beim Feststellen der Position der Grundlinie zeigt, dass[nbsp] CS3 offensichtlich wählerischer ist als CS2, wenn gleichzeitig eine mathematische Aktion verlangt wird. Abhilfe bringt entweder ein explizites [#0000FF]get[/#] ...
---
[#0000FF]set[/#] yDiff [#0000FF]to[/#] ([#0000FF]item[/#] k [#0000FF]of[/#] baseList) - ([#0000FF]get[/#] [#0000FF]baseline[/#] [#0000FF]of[/#] [#0000FF]line[/#] 1)
---
... oder ein vorheriges Speichern des Wertes:
---
[#0000FF]set[/#] topBaseLine [#0000FF]to[/#] [#0000FF]baseline[/#] [#0000FF]of[/#] [#0000FF]line[/#] 1
[#0000FF]set[/#] yDiff [#0000FF]to[/#] ([#0000FF]item[/#] k [#0000FF]of[/#] baseList) - topBaseLine
---

Hier das modifizierte Script, welches sowohl mit CS2 als auch mit CS3 funktionieren sollte:


tell document 1 of application "Adobe InDesign CS3"
[nbsp] activate
[nbsp] 
[nbsp] try
[nbsp] [nbsp] set allIDs to id of every item of selection ¬
[nbsp] [nbsp] [nbsp] whose content type is text type
[nbsp] [nbsp] if class of allIDs is not list then set allIDs to {allIDs}
[nbsp] on error
[nbsp] [nbsp] display dialog "Es ist kein Textrahmen ausgewählt." buttons ¬
[nbsp] [nbsp] [nbsp] "OK" default button 1 with icon 2
[nbsp] [nbsp] error number -128
[nbsp] end try
[nbsp] 
[nbsp] repeat with i from 1 to count of allIDs
[nbsp] [nbsp] set baseID to item i of allIDs
[nbsp] [nbsp] 
[nbsp] [nbsp] set idList to {}
[nbsp] [nbsp] set baseList to {}
[nbsp] [nbsp] 
[nbsp] [nbsp] repeat 1 times
[nbsp] [nbsp] [nbsp] 
[nbsp] [nbsp] [nbsp] tell text frame id baseID
[nbsp] [nbsp] [nbsp] [nbsp] set nParas to count of paragraphs of parent story
[nbsp] [nbsp] [nbsp] [nbsp] if nParas is 0 then exit repeat
[nbsp] [nbsp] [nbsp] end tell
[nbsp] [nbsp] [nbsp] 
[nbsp] [nbsp] [nbsp] repeat with k from 2 to nParas
[nbsp] [nbsp] [nbsp] [nbsp] tell text frame id baseID
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] tell parent story
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] tell paragraph k
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] set end of baseList to baseline of line 1
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] end tell
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] end tell
[nbsp] [nbsp] [nbsp] [nbsp] end tell
[nbsp] [nbsp] [nbsp] [nbsp] 
[nbsp] [nbsp] [nbsp] [nbsp] set newFrame to duplicate text frame id baseID
[nbsp] [nbsp] [nbsp] [nbsp] set end of idList to id of newFrame
[nbsp] [nbsp] [nbsp] [nbsp] tell newFrame
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] tell parent story
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] try
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] delete (paragraphs (k + 1) thru -1)
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] end try
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] try
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] delete (paragraphs 1 thru -2)
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] end try
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] if (count of characters) is greater than 1 then
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] if contents of character -1 is return then
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] delete character -1
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] end if
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] end if
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] end tell
[nbsp] [nbsp] [nbsp] [nbsp] end tell
[nbsp] [nbsp] [nbsp] end repeat
[nbsp] [nbsp] [nbsp] 
[nbsp] [nbsp] [nbsp] tell text frame id baseID
[nbsp] [nbsp] [nbsp] [nbsp] set {y1, x1, y2, x2} to geometric bounds
[nbsp] [nbsp] [nbsp] [nbsp] tell parent story
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] try
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] delete (paragraphs 2 thru -1)
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] end try
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] if contents of character -1 is return then
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] delete character -1
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] end if
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] set y2 to (baseline of line -1) + 1
[nbsp] [nbsp] [nbsp] [nbsp] end tell
[nbsp] [nbsp] [nbsp] [nbsp] set geometric bounds to {y1, x1, y2, x2}
[nbsp] [nbsp] [nbsp] end tell
[nbsp] [nbsp] [nbsp] 
[nbsp] [nbsp] [nbsp] repeat with k from 1 to count of idList
[nbsp] [nbsp] [nbsp] [nbsp] set curID to item k of idList
[nbsp] [nbsp] [nbsp] [nbsp] tell text frame id curID
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] set {y1, x1, y2, x2} to geometric bounds
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] tell parent story
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] set yDiff to (item k of baseList) - (get baseline of line 1)
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] [nbsp] set y2 to (baseline of line -1) + 1
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] end tell
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp] set geometric bounds to {y1, x1, y2, x2}
[nbsp] [nbsp] [nbsp] [nbsp] end tell
[nbsp] [nbsp] [nbsp] [nbsp] move text frame id curID by {0, yDiff}
[nbsp] [nbsp] [nbsp] end repeat
[nbsp] [nbsp] [nbsp] 
[nbsp] [nbsp] end repeat
[nbsp] end repeat
end tell

Gruss, Hans

TMA

Hallo Hans,
kleiner Befehl, grosse Wirkung. Mit "get baseline" läufts wunderbar.

Nochmals besten Dank für deine Bemühungen und Gruß
TMA