OpenOffice.info

Verfasst: **So, 11.05.2014 19:52**

Hallo,

ich weiß, dass ich für einen Text die "Benutzerdaten" in Datei/Eigenschaften ausschalten kann -etwa um ihn für ein anonymes (blindes) peer-review vorzubereiten.
Kann ich aber auch Kommentare und Änderungen "anonymiseren"?

Dank im Voraus
A

Verfasst: **So, 11.05.2014 20:08**

Hi,
versuche mal dieses Makro an einer Kopie, speichere die Datei, schliesse und öffne sie wieder.

Code: Alles auswählen

Sub s_Change_Annotation_Author
    oTextfields = thiscomponent.Textfields
    oTextFieldenumeration = oTextfields.createEnumeration
    while oTextFieldenumeration.hasmoreelements
        oTextfield = oTextFieldenumeration.nextelement
        if oTextfield.supportsservice("com.sun.star.text.TextField.Annotation") then
            oTextfield.Author = "anonymer Kommentator"'Hier den gewünschten Autor eintragen
        endif
    wend
    oTextfields.refresh
End Sub

HTH R

Verfasst: **So, 11.05.2014 23:58**

Danke, probier ich mal

OpenOffice.info

anonym kommentieren

anonym kommentieren

Re: anonym kommentieren

Re: anonym kommentieren