Re: <PUB> [fr-users] WRITER - Onglets à la façon pied de page

Bon ben la bonne idée de fainéant '(l'informatique c'est un peu fait pour
eux !) tombe à l'eau.
Merci de t'être penché sur le problème.

Donc j'ai aussi avancé sur les onglets dessiné dans Draw collé dans Writer,
alimenté en Hyperliens. Et par réflexe de fainéant assumé, j'ai enregistré
une macro qui fait un copier coller sur la page suivante.
Maquette_INDEX_VERTICAL-MACRO.odt
<http://nabble.documentfoundation.org/file/n4154666/Maquette_INDEX_VERTICAL-MACRO.odt>  

Le code à la fin. Mais là pour être bien il me faudrait de l'aide (rémunéré
sur facture ) pour faire quelque chose qui tienne la route. 

Genre :  sélection d'objet(s) à copier, nombre de pages proposées pour la
copie depuis la page en cours puis copie sur toutes les page. Ce serait un
minimum pour alléger le travail de nos deviseurs. L'idéal serait la
récupération des titres1 pour générer les hyperliens mais cela risque de
faire beaucoup de travail.

Quelqu'un serait disponible pour ce travail ?...

Cordialement
Patrick

Macro de l'enregistreur :

Sub Main

End Sub


sub Copie
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:Copy", "", 0, Array())

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

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

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


end sub



--
View this message in context: 
http://nabble.documentfoundation.org/WRITER-Onglets-a-la-facon-pied-de-page-tp4153814p4154666.html
Sent from the Users mailing list archive at Nabble.com.

-- 
Envoyez un mail à users+unsubscribe@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