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]
