Enregistrement automatique à la fermeture

fr-users
#1

Bonjour,

une proposition faisant suite à cette discussion http://nabble.documentfoundation.org/macro-d-enregistrement-automatique-tp4211509.html

Il s'agit d'un enregistrement lié à la fermeture du document.

Copier la macro suivante

Sub savemydoc

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:Save", "", 0, Array())

rem ------variante Enregistrer sous…--------------------------------------

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

End Sub

Pour qu'elle soit disponible en permanence, dans tous les modules de LibreOffice, l'enregistrer dans Mes macros>Standard

Puis,
Menu Outils>Personnaliser>Onglet Événements>Le document va être fermé
Cliquer sur le bouton Macro et sélectionner la macro précédemment enregistrée.