|
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.
Françoise
' | 