Re: [fr-users] Re: Writer - Insertion automatique - Permanente ?

Le 30/03/12 11:35,  jdt37b nous a écrit  :
> Bonjour,
>
> Effectivement, dans le document défini  à ouvrir par défaut (vierge), il
> faudrait pouvoir exécuter une macro qui ouvrirait un autre document
> contenant les mots choisis pour l'insertion automatique et qui le fermerait
> ensuite pour laisser la place au document vierge, les mots choisis étant
> alors actifs pour l'insertion automatique.
>
> J'ai regardé un exemple de macro en standard dans LO, j'ai vite refermé la
> fenêtre ... en espérant qu'un expert lise notre discussion !
> Cordialement.
>
> -----
> LO 3.4.6 - Windows XP
> --
> View this message in context: 
> http://nabble.documentfoundation.org/Writer-Insertion-automatique-Permanente-tp3853685p3870360.html
> Sent from the Users mailing list archive at Nabble.com.
Bonjour,

l'enregistreur de macros m'ayant mis le pied à l'étrier, voici le code

//*
Sub DeleteAll
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:SelectAll", "", 0, Array())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Delete", "", 0, Array())

end Sub
*//

Il doit pouvoir être optimisé, sécurisé par une vraie gestion d'erreurs.
À installer comme macro déclenchée à l'événement "création d'un nouveau 
document Writer".
Je n'ai pas su faire.

Le premier risque que je détecte est d'effacer un document existant.

C_Lucien

--
Envoyez un mail à users+help@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés