Hello Isabelle,
On Friday 09 October 2009, 15:22, Isabelle Ramade wrote:
> Bonjour,
>
> je souhaite modifier le créateur initial d'un document writer (un
> document fait par une collègue, dont j'ai repris uniquement la mise en
> page et styles pour homogénéiser les documents de l'équipe enseignante,
> le contenu du nouveau document étant en revanche rédigé par moi-même)
>
> via les propriétés, on n'a pas accès à la modification du créateur.
> j'avais donc l'habitude de renommer le fichier .odt en .zip, d'ouvrir le
> dossier, d'éditer et modifier le meta.xml (à l'aide d'openoffice ou d'un
> éditeur xml), de rezipper le tout et de remettre l'extension .odt.
>
> avant, cela fonctionnait.
> ça ne marche plus : le fichier n'est plus reconnu par openoffice.
>
> quelqu'un a une idée ?
> comment faire ?
with some little macro magic you don't need to touch the document xml content.
Put this in your Basic library and run it from within the doc. you want to
modify, using the Tools - Macros - Run Macro ... menu [first change the value
of the sNewAuthor variable ;-) ]:
Sub Change_Doc_Author
Dim sNewAuthor$
sNewAuthor = "Homer Simpson" '<== CHANGE THIS
Dim oDoc as Object
oDoc = ThisComponent
If HasUnoInterfaces(oDoc, _
"com.sun.star.document.XDocumentPropertiesSupplier") Then
oDoc.getDocumentProperties().Author = sNewAuthor
Else
If HasUnoInterfaces(oDoc, _
"com.sun.star.document.XDocumentInfoSupplier") Then
oDoc.getDocumentInfo().Author = sNewAuthor
End If
End If
End Sub
Regards
--
Ariel Constenla-Haile
La Plata, Argentina
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
