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