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

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) MonTexte.insertTextContent( MonCurseur, Ctl2Shape, false)

End Sub

Le problème vient d'ici :

ModeleCtl2 = MonDocument.createInstance("com.sun.star.form.component.ListBox )

De la version OOo1 à la version OOo2 les macros ont-elles changé ?

Françoise

-------Message original-------

De : Françoise Date : 16/09/2006 13:18:17 A : pr...@fr.openoffice.org Sujet : [prog] Créer une section incluant des contrôles de formulaires ?

Bonjour,

J'ai beau chercher dans la documentation je n'arrive pas à faire ce que je recherche.

j'ai trouvé une macro d'une insertion de texte dans une section de Agnès Simonet je voudrais arriver à faire la même opération mais avec des contrôles de formulaire plutôt qu'un texte. Voici la macro pour créér un texte à la fin d'une section :

'Dim oDoc As Object 'Dim oTexte As Object 'Dim oSection As Object 'Dim oAnchor As Object 'Dim oCursorFin As Object

'oDoc = ThisComponent 'oTexte = oDoc.Text 'oSection = oDoc.GetTextSections.GetByName("TrucMuch") 'oAnchor=oSection.GetAnchor() 'oCursorFin=oTexte.createTextCursorByRange(oAnchor.getEnd())

'oTexte.insertString(oCursorFin, "toto et tutu", FALSE)

'Ça marche !

'Agnès S."

Quelqu'un pourrait-il me dire comment faire la même macros mais en créant des contrôles de formulaire plutôt que du texte? Merci.