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

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur: Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !

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

Messagepar OlivierR » 24 Mai 2006 21:35

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.
Dernière édition par OlivierR le 15 Mars 2010 18:07, édité 2 fois.
LibreOffice 7.1Windows 10Grammalecte, correcteur grammatical et orthotypographique
OlivierR
SuppOOrter
SuppOOrter
 
Message(s) : 1037
Inscrit le : 24 Mai 2006 21:34
Localisation : Lorraine, France

Mise à jour de la propriété Auteur

Messagepar Pierre-Yves Samyn » 25 Mai 2006 06:10

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
Pierre-Yves Samyn
Grand Maître de l'OOffice
Grand Maître de l'OOffice
 
Message(s) : 11276
Inscrit le : 02 Mai 2006 09:42

Messagepar bm92 » 25 Mai 2006 07:31

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
bm92
ManitOOu
ManitOOu
 
Message(s) : 2562
Inscrit le : 26 Nov 2005 14:42

Messagepar OlivierR » 25 Mai 2006 10:10

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...
LibreOffice 7.1Windows 10Grammalecte, correcteur grammatical et orthotypographique
OlivierR
SuppOOrter
SuppOOrter
 
Message(s) : 1037
Inscrit le : 24 Mai 2006 21:34
Localisation : Lorraine, France

Messagepar OlivierR » 25 Mai 2006 10:13

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.
LibreOffice 7.1Windows 10Grammalecte, correcteur grammatical et orthotypographique
OlivierR
SuppOOrter
SuppOOrter
 
Message(s) : 1037
Inscrit le : 24 Mai 2006 21:34
Localisation : Lorraine, France

[Résolu] Editer le champ <auteur>

Messagepar OlivierR » 27 Mai 2006 08:51

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   AgrandirRéduire
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
LibreOffice 7.1Windows 10Grammalecte, correcteur grammatical et orthotypographique
OlivierR
SuppOOrter
SuppOOrter
 
Message(s) : 1037
Inscrit le : 24 Mai 2006 21:34
Localisation : Lorraine, France


Retour vers Macros et API

Qui est en ligne ?

Utilisateur(s) parcourant ce forum : Aucun utilisateur inscrit et 4 invité(s)