Archiv des LibreOffice- und OpenOffice.org-Wiki

[ÜberSicht] [TitelIndex] [WortIndex] [SeiteFinden

1. Alle Feldbefehle im Dokument fixieren

Für die Weitergabe eines Dokumentes mit Feldbefehlen empfiehlt es sich, vorhandene Feldbefehle zu fixieren, da ansonsten die Inhalten nicht erhalten bleiben. Wurde diese Option nicht bei einfügen der Feldbefehle aktivert, erledigt nun dies das folgende Makro.
Optinal kann die Fixierung auch wieder entfernt werden!

(./) SO 5.1, 5.2

Sub Feldbefehle_fixieren
        if GetSolarversion > 517 then
                Version = "com.sun.star" 'SO 5.2
        else
                Version = "stardiv.one"  'SO 5.1 & SO 5.1a
        end if
        oDesktop = createUNOService( Version & ".frame.Desktop" )
        oDoc = oDesktop.ActiveComponent
        oFieldEnum = oDoc.getTextFields().createEnumeration()
        while oFieldEnum.hasMoreElements
                oField = oFieldEnum.nextElement
                if oField.getPropertyValue("Fix") <> "" then
                        oField.Fix = True       'Feldbefehle fixieren
'                       oField.Fix = false      'Feldbefehle nicht fixieren
                end if
        wend
End Sub

Klaus Osigus 13.09.2004

KategorieMakro


LizenzBedingungen | AnbieterKennzeichnung | DatenschutzErklärung | Stand: 2013-04-28