openoffice-users-de mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Apo <apoth...@stadtapotheke-badaibling.de>
Subject Re: Writer / Feldbefehle Makro
Date Thu, 01 Mar 2018 22:21:09 GMT
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:apotheke@stadtapotheke-badaibling.de]
>> 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: users-de-unsubscribe@openoffice.apache.org
> For additional commands, e-mail: users-de-help@openoffice.apache.org
>
>


Mime
  • Unnamed multipart/alternative (inline, None, 0 bytes)
View raw message