[fr-users] Macro dans Writer

Bonjour,
Je planche sur une macro, mais je tourne en rond !
J’ai une page, avec un cadre. Dans ce cadre j’ai un tableau.
Je veux coller une image en mémoire dans ce tableau.
1- je colle avec cette fonction :
dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
2- j’arrive a sélectionner mon cadre avec cette fonction :
dispatcher.executeDispatch(document, ".uno:JumpToNextFrame", "", 0, Array())

mais je n’arrive pas à entrer dans le cadre (et donc dans le tableau)

Je m'inspire de cette page 
https://wiki.documentfoundation.org/Development/DispatchCommands#Writer_slots_.28swslots.29

Une idée
Merci
Nicolas

Voici le script
REM  *****  BASIC  *****

sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
msgbox("l'image va être copiée depuis Draw") 

rem ----------------------------------------------------------------------
rem get access to the document
        document   = ThisComponent.CurrentController.Frame
        dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
rem on colle l'image en mémoire depuis Draw
        dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
rem ----------------------------------------------------------------------
rem on ancre comme caractère l'image
        dispatcher.executeDispatch(document, ".uno:SetAnchorToChar", "", 0, Array())
rem ----------------------------------------------------------------------
rem on coupe l'image qui est n'importe où après l'ancrage
        dispatcher.executeDispatch(document, ".uno:Cut", "", 0, Array())
rem ----------------------------------------------------------------------
rem on se place en début de document, 2 pages, donc certains d'être en début de première page
        dispatcher.executeDispatch(document, ".uno:GoToStartOfPrevPage", "", 0, Array())
rem ----------------------------------------------------------------------
rem on deplace le curseur 2 fois à droite (on est dans un premier tableau)
        dim argsdroite(1) as new com.sun.star.beans.PropertyValue
        argsdroite(0).Name = "Count"
        argsdroite(0).Value= 2
        argsdroite(1).Name = "Select"
        argsdroite(1).Value= false
        dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, argsdroite())
rem ----------------------------------------------------------------------
rem on colle l'image en mémoire dans la cellule (elle est en tans que caractere, ancrage précédent)
        dispatcher.executeDispatch(document, ".uno:Paste", "", 0, Array())
rem ----------------------------------------------------------------------
Rem on detecte la prochaine frame
dispatcher.executeDispatch(document, ".uno:JumpToNextFrame", "", 0, Array())

rem et puis je seche ...

end sub

-- 
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