[GastForen Programmierung/Entwicklung AppleScript Linke und rechte Seiten QXP4.11

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

Linke und rechte Seiten QXP4.11

Anonym
Beiträge gesamt: 22827

28. Jan 2005, 06:31
Beitrag # 1 von 5
Bewertung:
(537 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo,
ich hane folgendes Vorhaben:
Es sollen via AppleScript Stilvorlagen bestimmten Absätzen zugewiesen werden.
Alle Absätze die sich auf einer linken Seite befinden sollen die Stilvorlage "AbsatzLinks" erhalten. Und das für das komplette Dokument.
Das Gleiche soll auch auf rechte Seiten passieren. Dort sol die Stilvorlage "AbsatzRechts" zum Einsatz kommen.

Im Dokument selbst befindet sich kein Text. Es handelt sich ledglich um
verankerte Bildrahmen.

Wie läßt sich das realisieren?

Gruss
X

Linke und rechte Seiten QXP4.11

Hans Haesler
  
Beiträge gesamt: 5800

28. Jan 2005, 09:25
Beitrag # 2 von 5
Beitrag ID: #419302
Bewertung:
(536 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo cwenet,

hier eine Lösung: Eine Wiederholschleife, welche durch alle Seiten geht. Von jeder Seite wird der "Name", das
heisst die Seitennummer, welche als Pagina gedruckt würde, geprüft. Wenn die Zahl mit dem Operatoren 'mod'
geteilt wird, ist das Resultat (der Restwert) entweder '0' oder '1'. Je nach Ergebnis wird der Variablen 'curSheet'
die entsprechende Stilvorlage zugeteilt.

In der inneren Repeatschleife werden die Textboxen adressiert. Jedem Text wird gesagt, dass er jedem Absatz die
Stilvorlage 'curSheet' zuweisen soll:
---
tell document 1 of application "QuarkXPress 4.11"
    activate
    repeat with i from 1 to count of pages
        tell page i
            if (name as integer) mod 2 = 0 then
                set curSheet to "AbsatzLinks"
            else
                set curSheet to "AbsatzRechts"
            end if
            repeat with j from 1 to count of text boxes
                try
                    tell text box j
                        tell text 1
                            set style sheet of every paragraph to curSheet
                        end tell
                    end tell
                end try
            end repeat
        end tell
    end repeat
end tell

---
Problematisch wird es, wenn Textboxen vorhanden sind, welche nicht behandelt werden sollen (z.B. die Pagina).
Wenn dies der Fall sein sollte, bitte melden.

Gruss, Hans


als Antwort auf: [#419301]

Linke und rechte Seiten QXP4.11

Anonym
Beiträge gesamt: 22827

28. Jan 2005, 10:12
Beitrag # 3 von 5
Beitrag ID: #419303
Bewertung:
(536 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Genial Hans.
Es geht. Danke.

Aber Du hast recht. Soweit habe ich garnicht gedacht. Es hat natürlich
noch andere Textboxen auf der Seite.
Es soll aber nur der Haubttextrahmen behandelt werden.
Ich könnte den betroffenen Textrahmen aber mit einem Namen versehen.

Wäre das hilfreich?

Gruss
Christoph


als Antwort auf: [#419301]

Linke und rechte Seiten QXP4.11

Hans Haesler
  
Beiträge gesamt: 5800

28. Jan 2005, 10:33
Beitrag # 4 von 5
Beitrag ID: #419304
Bewertung:
(536 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Christoph,

ja, das wäre sehr hilfreich. Damit werden alle anderen Boxen ausgeschlossen. Und die Repeatschleife erübrigt sich:
---
tell document 1 of application "QuarkXPress 4.11"
    activate
    repeat with i from 1 to count of pages
        tell page i
            if (name as integer) mod 2 = 0 then
                set curSheet to "AbsatzLinks"
            else
                set curSheet to "AbsatzRechts"
            end if
            try
                tell text box "hauptbox"
                    tell text 1
                        set style sheet of every paragraph to curSheet
                    end tell
                end tell
            end try
        end tell
    end repeat
end tell

---
Am besten wird beim Vorbereiten des Dokuments eine Box erstellt, benannt und auf die Musterseiten plaziert
(die Box muss auf einer Dokumentseite liegen, damit sie benannt werden kann).

Gruss, Hans


als Antwort auf: [#419301]

Linke und rechte Seiten QXP4.11

Anonym
Beiträge gesamt: 22827

28. Jan 2005, 10:59
Beitrag # 5 von 5
Beitrag ID: #419305
Bewertung:
(536 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Ok. Läuft wunderbar.
Vielen Dank, Hans.


als Antwort auf: [#419301]
X

Aktuell

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
05.02.2021 - 05.11.2021

Digicomp Academy AG, Limmatstrasse 50, 8005 Zürich
Freitag, 05. Feb. 2021, 13.00 Uhr - Freitag, 05. Nov. 2021, 17.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: CHF 10'500.-
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-Mailkundenberatung AT digicomp DOT ch

digicomp.ch/d/9PM

Veranstaltungen
12.03.2021 - 16.07.2021

Digicomp Academy AG, Zürich oder virtuell
Freitag, 12. März 2021, 13.00 Uhr - Freitag, 16. Juli 2021, 17.00 Uhr

Lehrgang

Steigen Sie in die Welt des Publishings ein und erlangen Sie die Zertifizierung von publishingNETWORK. Lernen Sie in diesem Lehrgang Druckmedien professionell zu erarbeiten, druckfertige PDFs zu erstellen und CI/CD-Vorgaben umzusetzen.

Preis: CHF 6'300.-
Dauer: 18 Tage (ca. 126 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-Mailkundenberatung AT digicomp DOT ch

digicomp.ch/d/9PBAS