[Résolu] [Writer] Editer le champ <auteur>

[OlivierR]

Bonjour,

Je souhaiterais pouvoir modifier le champ <auteur> des textes que j'édite. Il ne semble pas possible de le modifier dans les propriétés d'un document. Comment faire? Existe-t-il une macro?

La raison est que je mets en page et modifie de nombreux textes très anciens, et que je voudrais que le champ auteur corresponde à l'auteur véritable du texte et non à celui qui l'édite...
Merci d'avance.

Olivier.

[Pierre-Yves Samyn]

Bonjour

Sans passer par une macro on peut modifier document par document la propriété Auteur par : Outils Options OpenOffice Données d'identité.

Cette modification sera enregistrée avec le document et ne sera pas "écrasée" par une actualisation des champs

[bm92]

Pour remplacer l'identité de l'auteur original par la donnée d'identité de ta version d'OpenOffice:
Fichier > Propriétés > onglet Général
- cocher : utiliser les données d'identité
- cliquer Supprimer, puis OK.

Du point de vue des droits de l'auteur, on devrait distinguer l'auteur original et celui qui a fait la dernière modification.
OpenOffice offre les deux champs:
Insérer > Champ > Auteur
Insérer > Champ > Autre > onglet Info document > Modification > Auteur

[OlivierR]

Merci, je n'avais pas songé à modifier l'identité de l'utilisateur de OOo...
Ce n'est pas très pratique et ce n'est sûrement pas fait pour ça, mais enfin...

Sinon, j'ai dézippé un fichier .ODT et j'ai découvert que l'identité du fichier se trouvait dans meta.xml, dans la balise
<meta:initial-creator>Hermès Trismégiste</meta:initial-creator>

Peut-être est-il possible d'éditer directement ce champ avec une macro?
Mais je ne sais pas comment faire...

[OlivierR]

Je m'aperçois que j'aurais dû préciser que c'est bien toujours l'auteur initial d'un fichier que je veux changer.

[OlivierR]

Bonjour,

Quelqu'un des mailing-list OpenOffice.org m'a grâcieusement donné une solution très efficace pour résoudre mon problème. Une macro pour éditer facilement le champ auteur. La voici :

Code : Tout sélectionner

Sub SetNewAuthor()
  Dim oDoc As Object
  Dim sAuteur As String, sMsg As String
  Dim iRep As Integer
  oDoc = ThisComponent
  sAuteur = "Auteur actuel = " & oDoc.DocumentInfo.Author
  sAuteur = sAuteur & Chr( 10 ) & Chr( 10 ) & "Saisir un nouveau nom d'auteur"
  sAuteur = InputBox( sAuteur, ":: Modification de l'auteur ::")
  sMsg = "Le nouvel auteur sera : " & Chr(10) & sAuteur
  If sAuteur <> "" Then
    iRep = MsgBox( sMsg, 4 + 32 + 256, "Confirmer nouvel auteur")
    If iRep = 6 Then
      oDoc.DocumentInfo.Author = sAuteur
    End If
  End If
End Sub