Gegeben ist ein Quark-Dokument (v4.11), das einige Tausend Artikel enthält, die alle 2- oder 4-zeilig sind, jeweils mit eigener Stilvorlage.
Bei der manuellen Überprüfung des Dokumentes ergibt sich ab und zu die Notwendigkeit, aus einem 2-zeiligen Artikel einen 4-zeiligen zu machen, und umgekehrt. Dazu muss die jeweils andere Stilvorlage zugeordnet werden. Zusätzlich müssen zwei Sonderzeichen getauscht werden. Außerdem ist die Unterstreichung des aktuellen und des vorhergehenden Absatzes zu prüfen und ggfls. ebenfalls zu ändern.
Da ich mir vorstellen kann, trotz des Einsatzes von QuicKeys den Änderungsaufwand noch zu verringern, habe ich angefangen zu probieren.

Das erste Problem: wie bringe ich AS die Objekthierarchie des gewünschten Absatzes bei? Bis zum ausgewählten Textrahmen habe ich es geschafft.

Absätze kann ich zwar über einen Index ansprechen, allerdings weiß ich nicht, wie AS ermitteln kann, in welchem Absatz sich die Einfügemarke bzw. eineTextmarkierung befindet. Und genau das brauche ich.

Wer weiß Rat?

Hallo Goar,

versuch's mal so:
---
tell document 1 of application "QuarkXPress 4.11"
  set insPoint to offset of selection
  if insPoint = 0 then set insPoint to 1
  tell current box
    tell story 1
      set paraNum to count paragraphs of (text from character 1 to character insPoint)
    end tell
  end tell
end tell
---

Hans Haesler, hsa@ringier.ch

Hallo Hans,

nicht nur total übersichtlich, auch vom Prinzip her bei allen möglichen Textmanipulationen einsetzbar.

Bin begeistert!

Das Skript ist inzwischen fertig und eine sehr große Arbeitserleichterung: es wurden mehrere Arbeitsschritte verbunden, von denen bei Einzelabarbeitung schon mal der eine oder andere vergessen werden kann.

Danke und Gruß
Goar