OpenOffice.info

Danke, probier ich mal

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

Hi,
versuche mal dieses Makro an einer Kopie, speichere die Datei, schliesse und öffne sie wieder.
[code]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[/code]
HTH R

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