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