Bonjour,
Je rencontre un problème ….
Je souhaite ouvrir un document A qui contient un rapport avec entêtes et pieds de page …
Je souhaite ensuite insérer l’ensemble du contenu de A dans un Document B (qui va regrouper plusieurs rapports) …
Pour cela J’ouvre B puis j’ouvre A … je fais un sélectionner tout sur A puis un copier …
Mais lorsque je colle le tout dans B je n’ai pas l’ensemble du document mais seulement l’objet en cours (entête ou corps ou pied de page)
Comment obtenir l’intégralité du document et l’envoyer vers le presse papier ?.
J’utilise ces trois fonction la …
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
Public Sub Copier()
Dim Arguments(0) As Object
Arguments(0) = MakePropertyValue("Hidden", False)
oSel = oDocument.CurrentController.Frame
oDispatcher.executeDispatch(oSel, ".uno:Copy", "", 0, Arguments)
End Sub
Public Sub VersPressePapier()
Dim Arguments(0) As Object
Arguments(0) = MakePropertyValue("Hidden", False)
oSel = oDocument.CurrentController
oDispatcher.executeDispatch(oSel, ".uno:SendOutlineToClipboard", "", 0, Arguments)
End Sub
Petite précision, j’utilise ces fonctions sous VB Express 2005
Merci par avance pour votre aide car je ne trouve pas dans le manuel de programmation la solution a mon problème.
