[GastForen Programmierung/Entwicklung AppleScript Indesign Dokument aufteilen

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Themen
Beiträge
Moderatoren
Letzter Beitrag

Indesign Dokument aufteilen

Fat_Dog2323
Beiträge gesamt: 3

12. Jan 2016, 14:29
Beitrag # 1 von 6
Bewertung:
(6529 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo,

ich habe folgendes Problem:
ich würde gerne eine CS6 Indesign Datei aufteilen in einzelne Indesign-Dokumente. ABER Titel und Rückseite sollen Einzelseiten bleiben, der Rest aber Doppelseiten

Also, EL_Schoener_Wohnen.indd soll werden:

01_EL_Schoener_Wohnen.indd
02_03_EL_Schoener_Wohnen.indd
04_05_EL_Schoener_Wohnen.indd
06_07_EL_Schoener_Wohnen.indd
08_EL_Schoener_Wohnen.indd

Was ich gefunden habe ist das hier:
https://indesignsecrets.com/free-script-splits-long-indesign-files.php

Das macht aber die Geschichte mit den Doppelseiten nicht.

Also habe ich mir selbst was gebastelt, dass allerdings nicht richtig funktioniert

Code
tell application "Adobe InDesign CS6" 
activate
set user interaction level of script preferences to never interact


tell document 1
try
-- der Pfad zum Ordner, wo sich das Dokument befindet
set docFolder to file path as Unicode text
-- der volle Pfad des Dokuments
set docPath to full name
-- der Name des Dokuments
set docName to name
if docName ends with ".indd" then
set docName to text 1 thru -6 of docName
end if
on error
display dialog "Zuerst das Dokument speichern." buttons ¬
"OK" default button 1 with icon 0
error number -128
end try
-- bei einer ungespeicherten Änderung das Speichern vornehmen
if modified then save
-- speichern, ob Doppel- oder Einzelseiten
set doublePage to facing pages of document preferences
-- die Druckbögen zählen
set nSpreads to count of spreads

set nPages to count pages of spread 1

end tell
if nSpreads is greater than 1 then
-- die Anzahl Stellen, welche die Zahl des letzten Druckbogens benötigt
set nDigits to count of (nSpreads as string)


delete (spreads 2 thru -1) of document 1


set mypages to "01_"

-- den Pfad für das aktuelle Dokument zusammensetzen
set curPath to docFolder & mypages & "___" & docName & ".indd"
-- speichern und schliessen
save document 1 to curPath
close document 1 saving no
-- die Variable der Startseite initialisieren
if nPages is 1 then
set s to 2
else
set s to 3
end if
-- eine Schleife durch die Druckbögen 2 bis zum zweitletzten
repeat with i from 2 to (nSpreads - 1)
-- das Originaldokument erneut öffnen

open file docPath without dialog
-- die Zählervariable aktualisieren
tell document 1
set pageNumber to s

-- die Druckbögen vor dem aktuellen entfernen
delete (spreads 1 thru (i - 1))

-- und auch die Druckbögen nach dem aktuellen bis zum letzten
delete (spreads 2 thru -1)



set myPage to make new page
make section with properties {page start:page 1, continue numbering:false, page number start:s}

delete myPage

end tell
--set Abschnitt to paragraph 3 of story 1 of document 1
--set docName to text 1 thru -2 of Abschnitt
set my1 to 0
if doublePage then
if s < 10 then
set my1 to "0" & s
else
set my1 to s
end if
if s + 1 < 10 then
set my2 to "0" & s + 1
else
set my2 to s + 1
end if
set mypages to my1 & "_" & my2 & "_"
set s to s + 2
else
if s < 10 then
set my1 to "0" & s
else
set my1 to s
end if

set mypages to my1 & "_"
set s to s + 1
end if


-- den Pfad für das aktuelle Dokument zusammensetzen
set curPath to docFolder & mypages & "___" & docName & ".indd"
-- speichern und schliessen
save document 1 to curPath
close document 1 saving no

end repeat
-- das Originaldokument ein letztes Mal öffnen

open file docPath without dialog


tell document 1
-- die Seitennummer der ersten Seite des aktuellen Druckbogens
set pageNumber to (name of page 1 of spread nSpreads) as integer
-- einen neuen Abschnitt definieren
make section with properties {page start:page s ¬
, continue numbering:false, page number start:pageNumber}
-- die Druckbögen ausser dem letzten entfernen
delete (spreads 1 thru (nSpreads - 1))
end tell

if s < 10 then
set my1 to "0" & s
else
set my1 to s
end if

set mypages to my1 & "_"





-- den Pfad für das aktuelle Dokument zusammensetzen
set curPath to docFolder & mypages & "___" & docName & ".indd"
-- speichern und schliessen
save document 1 to curPath
close document 1 saving no
end if
end tell




Bitte helft mir

Markus
X

Indesign Dokument aufteilen

Hans Haesler
  
Beiträge gesamt: 5808

12. Jan 2016, 15:51
Beitrag # 2 von 6
Beitrag ID: #545897
Bewertung:
(6500 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Markus,

herzlich willkommen im AppleScript-Forum auf HilfDirSelbst! :-)

Zunächst: Dein erster Beitrag und schon PremiumMember! Vorbildlich!

Zu Deinem Problem. Darf es auch ein JavaScript sein? Dann versuche es bitte mal mit DokumentAufsplitten.
Zu finden hier: http://www.fachhefte.ch / Links "JavaScripts", "Mac OS X deutsch", "InDesign CS5" (sollte auch mit CS6 usw. funktionieren).

Nach dem Starten des Scripts erscheint ein Dialog zum Bestimmen des Trenn-Kriteriums. Hier den Radio-Button Anzahl Druckbögen pro Teil aktivieren.
Im zweiten Dialog im Texteingabefeld eine Eins eingeben. Und mit Klick auf "OK" bestätigen.

Gruss, Hans


als Antwort auf: [#545884]

Indesign Dokument aufteilen

Fat_Dog2323
Beiträge gesamt: 3

15. Jan 2016, 15:08
Beitrag # 3 von 6
Beitrag ID: #545991
Bewertung:
(6358 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Hans,

vielen Dank für den Hinweis, tatsächlich macht das Script fast genau das, was ich brauche. Was mir noch fehlt, ist die korrekte Benamung.

Beispiel:
EL_Schoener_Wohnen.indd soll werden:

01_EL_Schoener_Wohnen.indd
02_03_EL_Schoener_Wohnen.indd
04_05_EL_Schoener_Wohnen.indd
06_07_EL_Schoener_Wohnen.indd
08_EL_Schoener_Wohnen.indd


vg
Markus


als Antwort auf: [#545897]

Indesign Dokument aufteilen

Hans Haesler
  
Beiträge gesamt: 5808

15. Jan 2016, 16:06
Beitrag # 4 von 6
Beitrag ID: #545992
Bewertung:
(6327 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Markus,

ach ja, das hatte ich in der Eile übersehen.

Das Script kann zwar Seitenzahlen, aber nur die erste jedes Teildokuments und sie werden am Ende des Dateinamens eingefügt.

Ich werde im Laufe des Abends versuchen, das Script zu ergänzen.

Gruss, Hans


als Antwort auf: [#545991]

Indesign Dokument aufteilen

Hans Haesler
  
Beiträge gesamt: 5808

15. Jan 2016, 21:18
Beitrag # 5 von 6
Beitrag ID: #545996
Bewertung:
(6284 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Markus,

nach reiflicher Überlegung: Das Ergänzen des Originalscripts mit der Option "Seitenzahlen zu Beginn" wäre ziemlich aufwendig. Deshalb entschied ich mich für eine andere Lösung: Gut 2'600 Codezeilen entfernen und nur jene behalten, welche für diese Aufgabe notwendig sind.

Und natürlich das Erfassen der Seitenzahlen erweitern und das Zusammenfügen der Dateinamen anpassen. Wichtig: Es wird kein Dialog gezeigt. Das Script legt gleich los.

Ich habe Dir den Link zum Herunterladen der ersten Version des Scripts per E-Mail übermittelt.

Nun hoffe ich, dass es Deinen Erwartungen entsprechen wird.

Gruss, Hans


als Antwort auf: [#545991]

Indesign Dokument aufteilen

Fat_Dog2323
Beiträge gesamt: 3

18. Jan 2016, 09:24
Beitrag # 6 von 6
Beitrag ID: #546020
Bewertung:
(6146 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Hans,

vielen Dank, ich habe das Script getestet, es funktioniert wunderbar!

viele Grüße
Markus


als Antwort auf: [#545996]
X

Aktuell

PDF / Print
pdf-standards-300x300

Veranstaltungskalender

Hier können Sie Ihre Anlässe eintragen, welche einen Zusammenhang mit den Angeboten von HilfDirSelbst.ch wie z.B. Adobe InDesign, Photoshop, Illustrator, PDF, Pitstop, Affinity, Marketing, SEO, Büro- und Rechtsthemen etc. haben. Die Einträge werden moderiert freigeschaltet. Dies wird werktags üblicherweise innert 24 Stunden erfolgen.

pdf-icon Hier eine kleine Anleitung hinsichtlich Bedeutung der auszufüllenden Formularfelder.

Veranstaltungen
26.10.2021

Online
Dienstag, 26. Okt. 2021, 10.00 - 10.30 Uhr

Webinar

In unserem ca. 30-minütigen kostenlosen Webinar zeigt Ihnen unser Produktmanager Karsten Schwarze, wie Sie mit ColorLogic ColorAnt, CoPrA und ZePrA einen konsistenten Farbmanagement Workflow aufbauen und die Druckqualität sichern.

Ja

Organisator: Impressed GmbH

Kontaktinformation: Silvia Noack, E-Mailsnoack AT impressed DOT de

https://www.impressed.de/schulung.php?c=sDetail&sid=305

Mit ColorLogic ColorAnt & CoPrA & ZePrA zum perfekten Druckergebnis
Veranstaltungen
29.10.2021 - 08.07.2022

Digicomp Academy, Zürich
Freitag, 29. Okt. 2021, 13.00 Uhr - Freitag, 08. Juli 2022, 19.00 Uhr

Lehrgang

Bilden Sie sich zum zertifizierten Publishing-Multimedia-Profi aus. Neben Fotografie und Video befassen Sie sich mit der Medienproduktion, digitalen Publikationen und dem Webdesign für Desktop- und mobile Endgeräte.

Preis: 10'500.– zzgl. 7.7% MWST
Dauer: 30 Tage(ca. 210 Lektionen) – Unterricht findet jeweils am Freitag von 13 - 19 Uhr und Samstag von 09 - 17 Uhr statt

Ja

Organisator: Digicomp Academy AG

Kontaktinformation: Kundenberater-Team, E-Mailkundenberater AT digicomp DOT ch