anonym kommentieren

[akoerber]

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

[F3K Total]

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

[akoerber]

Danke, probier ich mal