Macros

From The Document Foundation Wiki
< Macros‎ | Writer
Jump to: navigation, search

Comment insérer un commentaire par programme ?

On souhaite gérer par programme l'insertion de commentaire (par exemple pour maîtriser les champs Auteur et/ou Date du commentaire.

Nous utilisons pour cela le service com.sun.star.text.textfield.Annotation[1] et une structure com.sun.star.util.DateTime[2] pour définir précisément la date et heure voulue pour le commentaire.


La procédure suivante pourrait par exemple être associée à un raccourci-clavier. Elle insère à la position courante du curseur un nouveau commentaire.


Sub LibOInsererCommentaire

dim LibOCurseur as object
dim LibOAnnot as object
dim LibODateHeure as new com.sun.star.util.DateTime

LibOCurseur = ThisComponent.CurrentController.getViewCursor()
LibOAnnot = thiscomponent.createInstance("com.sun.star.text.textfield.Annotation")

with LibODateHeure
        .Minutes = 20
        .Hours = 12
        .Day = 20
        .Month = 12
        .Year = 2012
end with
   
with LibOAnnot
        .Author = "Auteur du commentaire"
        .Content = "Texte du commentaire"
        .DateTimeValue = LibODateHeure
end with

LibOAnnot.attach(LibOCurseur.start)

End Sub

Notes :