Liebe Leute,

ich sitze nach Jahren mal wieder an Quark (Version 7), und zwar in den Räumlichkeiten eines Kunden. Dort soll ich eine seitenlange Adressliste aufbauen, die stets gleich formatiert ist:

grünes Quadrat (aus Zapf Dingbats), Leerschritt, Name in Orange aus Schrift A in x Punkt, Zeilenumbruch, Straße in Schwarz aus Schrift B in y Punkt, Zeilenumbruch, PLZ und Ort aus Schrift B in y Punkt

Ausgangsmaterial ist ein Word-Dokument, wo lediglich das "n" für Zapf Dingbats vor den Namen fehlt. ;-)

In InDesign würde ich das mit verschachtelten Formaten ("Nested Stylesheets") lösen. Gibt es eine elegante Lösung in XPress 7 – oder bin ich zu manueller Arbeit verdammt?

Beste Grüße aus dem schwülwarmen, aber bedeckten Hannover,
Gero

Hallo Gero,

tja, nicht so einfach. Es ist zwar (wie in ID auch) möglich, das nächste Absatzformat zu bestimmen, das wirkt sich aber nur bei der Erstellung von Text aus, nicht aber beim Einlesen.

Ich würde vorschlagen, falls Du die Möglichkeit hast, den Wordtext in ID mit verschachtelten Formaten zu formatieren und als RTF zu exportieren. Dieses Format kann dann inklusive der Stilvorlagen anstandslos in QXP eingelesen werden, wobei die Stilvorlagen nach Bedarf geändert werden können.

Es sei denn, der Text wurde bereits in Word formatiert. Dann lässt sich das natürlich auch nutzen.

Danke für deine Ideen. Leider steht mir InDesign bei meinem Kunden nicht zur Verfügung. Es bleibt daher wohl bei der manuellen Bearbeitung, denn ob Stilvorlagen manuell in XPress oder manuell in Word zuweise ist im Endeffekt wohl leider ziemlich wurscht.

:-(

Beste Grüße aus dem sonnigen Hannover,
Gero

> denn ob Stilvorlagen manuell in XPress oder manuell in Word zuweise
> ist im Endeffekt wohl leider ziemlich wurscht

Stimmt, aber in Word lässt sich ja per VBA alles automatisieren.
Hier als Ansatz ein Makro, das in EINEM Absatz die beiden nötigen Zeichenstile zuweist:

Code

Sub ZFVs_zuweisen() 
  'ZFVs name_orange und quadrat_gruen müssen definiert sein! 
  '---------------- 
  'am Anfang des Absatzes (in dem der Cursor steht) werden zwei Zeichen eingefügt 
  'und dem ersten der Zeichenstil "quadrat_gruen" zugewiesen 
  Selection.MoveUp Unit:=wdParagraph, Count:=1 
  Selection.TypeText Text:="n " 
  Selection.MoveUp Unit:=wdParagraph, Count:=1 
  Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend 
  Selection.Style = ActiveDocument.Styles("quadrat_gruen") 
   
  'dem Rest der ersten Zeile den Zeichenstil "name_orange" zuweisen 
  Selection.MoveRight Unit:=wdCharacter, Count:=2 
  Selection.EndKey Unit:=wdLine, Extend:=wdExtend 
  Selection.Style = ActiveDocument.Styles("name_orange") 
End Sub 

Mit Makros habe ich noch nie gearbeitet ("Word? Ist das nicht so ein Textkonverter?"), daher bin ich gar nicht auf diese Idee gekommen. Ich brauche es allerdings nicht mehr auszuprobieren, weil ich vor ein paar Minuten fertig geworden bin. Werde es aber trotzdem tun, weil ich ja was lernen will :) Ich danke dir für deine Mühe, Henry, ganz große Klasse!

Beste Grüße aus dem sonnigen Hannover,
Gero