Forum: Desktop Publishing

Herbert,

 

Gibt es eine Möglichkeit in Ventura, eine Zählervariable zu bilden, z.B. für eine automatische Zählung für Randziffern? Die Zählung sollte sich automatisch anpassen, wenn im nachhinein zwischendrin eine Nummer gelöscht werden muss. Ich habe häufig das Problem, Randziffern - mitlaufend in der Marginalspalte auf Höhe des Absatzanfangs, erzeugen zu müssen, was ich bisher mehr oder weniger manuell mache. Die Anzahl geht teilweise bis ca. 1000 (d.h. 1, 2, 3 .... 1000). Hat jemand einen praktikablen Vorschlag, ohne das Problem über Umwege (z.B. in Word) lösen zu müssen.
HerbertKloos

Ich denke ja, bin aber nicht sicher, ob Du die vorhandenen Möglichkeiten nutzen willst/kannst.:

Ich habe die folgenden Möglichkeiten (noch) nicht probiert, wenn Du nicht selbst klar kommen solltest, kannst du das Problem noch einmal in meinem Forum ansprechen:

Ventura kennt nur eine beschränkte Anzahl von Zählern, die sich aber meines Erachtens nach für diesen Zweck mussbrauchen lassen:

1. Absatznummerierung

2. Abbildungsnummerierung

3. Tabellennummerierung

4. Fußnote

Und wenn das alles nicht genehm ist:

ein Skript.

Das alles funktioniert aber nur, wenn Du es an einen sequentiell laufenden Text koppelst, also nicht mit frei positionierten Rahmen, weil Corel Ventura hier immer die Nummerierung in der Reichenfolge der Entstehung der Rahmen auf einer Seite vornimmt.

Ich würde meinen ersten Versuch mal mit der Absatz- oder Tabellennummerierung starten.

Mal so als ersten Vorschlag.

Telefon: 08634/6249177
e-mail:werner.perplies@weepee.de
www.weepee.biz (Stand: 3. Mai 2005)
Foren: SearARep, Corel Ventura Skripte und Skriptprogrammierung,
OCR-Dienstleistungen, Konvertierungsdienstleistungen
Textbearbeitungswerkzeuge (SearARep),

Vielen Dank, Werner, hatte auch schon an diese Möglichkeit gedacht und ein wenig in dieser Richtung probiert, aber zunächst ohne Erfolg. Ich werde es nochmals intensiver versuchen. Das mit den Rahmen muss ich auch noch einmal prüfen, da Ventura m.E. den Text sequentiell durch Rahmen gleichen Inhalts laufen lässt, so dass bei Wegfall/Ergänzung eines Rahmens die Reihenfolge eigentlich erhalten bleiben sollte.
Ich werde über den Fortgang meiner Bemühungen berichten. Einstweilen vielen Dank. Herbert

Hallo!

Ich habe bei mir folgendes Script gefunden, das wohl das macht, was Du möchtest:

'SequentialNumber.csc

'Copyright 2001 Eric Weber

'This script finds every occurrence of a tag, clears the text in it,
'and inserts a sequential number. It is useful if, for example, you
'want to number all equations sequentially, but you have higher
'autonumber levels that would reset the numbering. In this case, you
'would just create a second tag, say Equation Number, that precedes
'or follows the equation. Then insert the tag name in the variable at
'the beginning of this script. You can edit the format of the number
'a bit further down.

'This script works with V7 or V8, just change the number in the first
'line of the script.

WITHOBJECT "CorelVentura.Automation.8"
Dim I As Integer
Dim bFound As Integer
Dim sTagName As String

'Insert your tag in the this line.
' sTagName = "Your TagName Here"
' sTagName = "verl"
sTagName = "pagina"

.EditInitFindTag sTagName, "pagina", true, false, FALSE, TRUE
I = 1
Do
bFound = .EditFindTag()
If bFound Then
.TextEndOfPara true

'To change the format of the number, edit this line
' .TypeText "(" & I & ")"
.TypeText I

I = I + 1
End If
Loop Until bFound = FALSE
END WITHOBJECT


Gruß
Thomas Babiel

Hallo Thomas, vielen Dank für das Script, ich werde es in aller Ruhe heute abend ausprobieren.
Auch die Anregung von Werner mit Hilfe von automatischer Absatznummerierung zu operieren, ist wohl ansatzweise brauchbar, doch verändert VP hier den Einzug der betreffenden Absätze, die bei mir allerdings immer außen links (= li Seite) oder rechts (= re Seite) außerhalb des Satzspiegels stehen sollen. Werde aber auch da noch weiter fummeln und meine Fortschritte vermelden. Gruß an beide Supporter - Herbert

Herbert,

 

Hallo Thomas, vielen Dank für das Script, ich werde es in aller Ruhe heute abend ausprobieren. Auch die Anregung von Werner mit Hilfe von automatischer Absatznummerierung zu operieren, ist wohl ansatzweise brauchbar, doch verändert VP hier den Einzug der betreffenden Absätze, die bei mir allerdings immer außen links (= li Seite) oder rechts (= re Seite) außerhalb des Satzspiegels stehen sollen. Werde aber auch da noch weiter fummeln und meine Fortschritte vermelden. Gruß an beide Supporter - Herbert

 

Wen Du mir eine Beispieldatei schickst, die eventuell auch veröffentlichen kann, würde ich gerne mal ein wenig experimentieren.

 

Wie hast denn Deine Marginalien erzeugt?

 

Mit verankerten Rahmen, oder mit nebeneinander gestellten Absätzen wie hier:

 

http://www.weepee.eu/forum/venturaskripte/viewtopic.php?t=40

 

Telefon: 08634/6249177
e-mail:werner.perplies@weepee.de
www.weepee.biz (Stand: 3. Mai 2005)
Foren: SearARep, Corel Ventura Skripte und Skriptprogrammierung,
OCR-Dienstleistungen, Konvertierungsdienstleistungen
Textbearbeitungswerkzeuge (SearARep),

Hallo Werner,

anbei schicke ich Dir ein paar Seiten einer Datei, die Randziffern enthält. Wie Du siehst, habe ich den Satzspiegel vergrößert und die Absatzformate entsprechend eingezogen, damit ich die daneben laufenden Randziffern immer außen habe. Dazu nutze ich ein kleines Script, das ich von Eric Weber übernommen und an meine Bedürfnisse angepasst habe; dieses Script setzt die Ziffernabsätze entsprechend der Position auf gerader oder ungerader Seite nach außen. Ich sende Dir dieses Script ebenfalls. Mein Problem ist eben die automatische Anpassung der Ziffernfolge beim Entfernen oder Hinzufügen einer Randziffer.

Gruß
Herbert

P.S. Weißt Du zufällig:
1. ob VP (mit Trick) OpenType-Schriften verwenden kann?
2. ob es eine Möglichkeit gibt, von rechts nach links laufende Texte zu bearbeiten, im konkreten Fall in hebräisch Sprache?

Ich stelle oben erwähntes Skript für Rechts-Links-Platzierung hier noch ins Forum:
'Left-Right Tags.csc

'Copyright 2001 Eric Weber

'This script tags paragraphs with one of two tags depending upon whether
'the paragraph appears on a left- or right-hand page. Thus, you can
'define a tag for right pages and one for left pages and use this script
'to automatically assign the correct one depending on which page the
'paragraph appears.

'The script works with any pair of paragraph tags for left-right pages
'Any paragraphs tagged with one of the two tags will be retagged with the
'appropriate tag for the page it is on -- left or right.
'Just substitute your tag names for Left Tag Name and Right Tag Name.

'I recommend adding this script to your publication and then customizing it
'for that VP. If you have multiple pairs of left/right tags, you can repeat
'the main portion of the script for each pair.

WITHOBJECT "CorelVentura.Automation.8"
Dim bLeftPage as Boolean
Dim lPageNum As Long
Dim bFound As Boolean
Dim sLeftPageTag As String
Dim sRightPageTag As String


'---------For multiple sets, repeat this portion for each set -----------

'Set tag names here

sLeftPageTag = "Links"
sRightPageTag = "Rechts"


'Finds all left tags and replaces them with right tags (i.e., everything
'is tagged as a right tag after this section finishes).

.EditInitFindTag sLeftPageTag, sRightPageTag, FALSE, FALSE, FALSE, TRUE
.EditFindTag
.EditReplace TRUE


'Finds all right tags and replaces the ones on left pages with left tags

.EditInitFindTag sRightPageTag, sLeftPageTag, FALSE, FALSE, FALSE, TRUE
Do
bFound = .EditFindTag()
lPageNum = .CurrentPageNumber(bLeftPage)
If bFound And bLeftPage Then
.EditReplace FALSE
End If
Loop Until bFound = FALSE

'--------------------------------------------------------------------------

END WITHOBJECT

Hallo Thomas,

habe Dein Skript leicht modifiziert und angewandt, aber es steigt aus nicht nachvollziehbaren Gründen irgendwann aus, nachdem es ca. 300 Zahlen neu nummeriert hat. Ich denke, dass könnte ein Speicherverwaltungsproblem sein, das VP 8 häufig beim Suchen und Ersetzen hat.

Hier das modifizierte Skript:

WITHOBJECT "CorelVentura.Automation.8"
Dim I As Long
Dim bFound As Integer
Dim sTagName As String

'Insert your tag in the this line.
sTagName = "Links"
' sTagName = "verl"
' sTagName = "pagina"

.EditInitFindTag sTagName, , false, false, false, true
I = 1
Do
bFound = .EditFindTag()
If bFound Then
.TextEndOfPara true

'To change the format of the number, edit this line
'.TypeText "(" & I & ")"
.TypeText I
I = I + 1
End If
Loop Until bFound = FALSE
END WITHOBJECT

Herbert

Nochmals Hallo Werner,

selbstverständlich gebe ich das OK für Screenshots.
Herbert