[prog] Problème sur un sélectionner tout...

[Cezame Concept]

Voici mon problème …

Je souhaite récupérer dans le presse papier le contenu d’un document
oOWriter …

Pour cela J’ouvre le document (en mode visible ou pas) puis je fais un
sélectionner tout au moyen de la méthode suivante …


    Public Sub SelectionnerTout()
        Dim Arguments(0) As Object
        Arguments(0) = MakePropertyValue("Hidden", False)
        oSel = oDocument.CurrentController
        oDispatcher.executeDispatch(oSel, ".uno:SelectAll", "", 0,
Arguments)
    End Sub

Puis j’envoies le tout vers le presse papier au moyen de la méthode suivante

    Public Sub ToutVersPressePapier()
        Dim Arguments(0) As Object
        Arguments(0) = MakePropertyValue("Hidden", False)
        oSel = oDocument.CurrentController
        oDispatcher.executeDispatch(oSel, ".uno:SendOutlineToClipboard", "",
0, Arguments)
    End Sub

Cette méthode fonctionne parfaitement sauf dans un cas :Si le document
commence par un tableau !!!

Je constate que sous oOWriter en utilisant le menu sélectionner tout cette
opération est également impossible !!!

Comment remédier a ce problème ?

Merci d’avance pour votre aide ….