Bonjour à tous,

N'y a-t-il vraiment personne pour m'aider ?

En cherchant j'ai trouvé cette macro de Agnès Simonet, mais elle ne fonctionne pas sous OOo 2.0.3 il y a deux erreurs :

Option Explicit Sub creation_controle 'Attention aux coupures par la messagerie au niveau des signes = '****** creer un controle ******** 'créer une forme pour le controle dim MonDocument as object Dim MonTexte as object dim oSource as object dim oConnexion as object MonDocument = ThisComponent

Dim Ctl2Shape as object Ctl2Shape = MonDocument.createInstance("com.sun.star.drawing.ControlShape")

Dim Taille As New com.sun.star.awt.Size Taille.Width = 1000 Taille.Height = 800 Ctl2Shape.Size = Taille

'crée un modèle de controle, ici une listbox dim ModeleControle as object

ModeleCtl2 = MonDocument.createInstance("com.sun.star.form.component.ListBox") XRay.XRay ModeleCtl2 ModeleCtl2.Border = 1 ModeleCtl2.Name = "MaListbox" ModeleCtl2. BackgroundColor = 65200

'lier modèle et forme Ctl2Shape.setControl(ModeleCtl2)

'insérer la forme à la fin de la page de dessin du document Writer Dim MonCurseur MonCurseur=MonDocument.Text.createTextCursor MonCurseur.gotoEnd(false) 'rajouter MonTexte = MonDocument.Text MonTexte.insertTextContent( MonCurseur, Ctl2Shape, false)

End Sub