WRITER tableau scinder par macro

fr-users
#1

Bonjour

Voici une nouvelle question envoyée à l'aide du formulaire de demande d'aide (http://fr.libreoffice.org/get-help/poser-une-question/).
Si vous répondez, merci de penser à utiliser la fonction "répondre à tous" de votre logiciel de courrier électronique de façon que le demandeur reçoive une copie de votre réponse.

Email:: zutix@laposte.net
Sujet:: WRITER tableau scinder par macro
OS:: Windows 7
Version:: 4.x.y
Question:: sujet : WRITER Tableau scinder par macro

D'avance merci de répondre à la question suivante :

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)

#2

Bonjour,

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,

#3

Bonjour et merci beaucoup.

Cela fonctionne aussi dans mon contexte.

Bien cordialement.

-----Message d'origine-----