Bonjour et merci beaucoup. Cela fonctionne aussi dans mon contexte.
Bien cordialement. -----Message d'origine----- De : Jean-Francois Nifenecker [mailto:jean-francois.nifenec...@laposte.net] Envoyé : vendredi 1 décembre 2017 17:59 À : zu...@laposte.net; users@fr.libreoffice.org Objet : Re: [fr-users] WRITER tableau scinder par macro Bonjour, Le 01/12/2017 à 14:56, demande_aide...@libreoffice.org a écrit : > OS:: Windows 7 Version:: 4.x.y > > Quel est le code basic pour : - scinder un tableau en 2 (après avoir > sélectionné la dernière ligne du tableau initial avec le curseur > visible par exemple - ou autrement si c'est plus facile) ? > > (split sur le tableau ne marche pas pour cela, j'ai vu quelque part > que cela se ferait peut-être par une propriété de ligne mais je n'ai > pas trouvé laquelle) > > je viens de tester avec l'enregistreur de macros et j'obtiens ceci : 8< --------------------------------------------------------------------- sub ScinderTablo 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 ---------------------------------------------------------------------- dim args1(0) as new com.sun.star.beans.PropertyValue args1(0).Name = "Type" args1(0).Value = 1 dispatcher.executeDispatch(document, ".uno:SplitTable", "", 0, args1()) end sub 8< --------------------------------------------------------------------- et chez moi (Debian Linux v.8.qqch, LibO 5.4.3, c-à-d version "Evolution") ça fonctionne pour d'autres tableaux. Cas d'utilisation testé : 1. Insérer un tableau (ex : 4 lignes, dont une de titre) 2. Placer le curseur visible dans la cellule la plus à gauche de la dernière ligne 3. Exécuter la macro -> j'obtiens 2 tableaux. Si vous répondez, merci de penser à utiliser la fonction "répondre à tous" de votre logiciel de courrier électronique de façon que la liste reçoive une copie de votre réponse. Bien cordialement, -- Jean-Francois Nifenecker, Bordeaux --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus -- Envoyez un mail à users+unsubscr...@fr.libreoffice.org pour vous désinscrire Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/ Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être supprimés
