Hallo Jörg,
ich habe es geschafft, das Makro zum Laufen zu bringen und es macht
genau das, was es soll.
Herzlichen Dank für die Hilfe!
Konrad
Am 01.03.2018 um 20:15 schrieb Jörg Schmidt:
Hallo Konrad,
-----Original Message-----
From: Apo [mailto:[email protected]]
Sent: Thursday, March 01, 2018 6:53 PM
To: Open Office
Subject: Writer / Feldbefehle
Win 7
Hallo zusammen,
vielleicht hat ja jemand eine Idee zur Lösung meines Problems:
Wenn ich aus einem Manuskript mit mehreren Kapiteln ein Kapitel
entnehme, stimmen danach die Feldbefehle (Querverweise auf Seiten und
Kapitel) natürlich nicht mehr.
Wo sonst steht "siehe Kapitel /1.2.3/" oder "siehe Abbildung Seite
/123/" steht dort im ausgegliederten Dokument "siehe *Fehler:
Referenz
nicht gefunden.*"
Das ist klar, weil diese Seitenverweise andere Kapitel
betreffen und ins
Leere laufen.
Gibt es eine Möglichkeit, vor dem Ausgliedern die Feldbefehle
optisch so
zu "fixieren" wie sie im Ausgangsdokument dastehen und sie dann so zu
übernehmen?
Du kannst die Querverweis-Felder mit folgendem Makro in festen Text umwandeln:
Sub Querverweise_fixieren()
tf_enum = ThisComponent.getTextFields().CreateEnumeration()
dd = 0
Do While tf_enum.hasMoreElements
tf_akt_feld = tf_enum.NextElement()
dd = dd + 1
If
tf_akt_feld.SupportsService("com.sun.star.text.textfield.GetReference") Then
x = tf_akt_feld.getAnchor
x.String = tf_akt_feld.CurrentPresentation
End If
Loop
Msgbox dd & " Querverweise fixiert.", 64, ""
End Sub
Das fixiert alle Querverweise im aktuellen Dokument. Falls es nötig wäre nur
die zu fixieren denen später die Referenz verloren geht, müsste man ersteinmal
überlegen wie man diese speziellen Querverweise unterscheidet.
Gruß
Jörg
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
