RE: [fr-users] WRITER tableau scinder par macro

Bonjour et merci beaucoup.

Cela fonctionne aussi dans mon contexte.    

Bien cordialement.

-----Message d'origine-----
De : Jean-Francois Nifenecker [mailto:jean-francois.nifenecker@laposte.net] 
Envoyé : vendredi 1 décembre 2017 17:59
À : zutix@laposte.net; users@fr.libreoffice.org
Objet : Re: [fr-users] WRITER tableau scinder par macro

Bonjour,

Le 01/12/2017 à 14:56, demande_aide_fr@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+unsubscribe@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