Hello !

Pour une fois que je peux être utile sur cette liste, voilà un code qui marche pour l'écriture d'un texte saisi dans une boite de dialogue.

Je profite de ce mail pour demander la solution d'un petit souci qui est dans ce même code : je n'arrive pas à centrer le texte. je peux le mettre en gras, mais impossible de le centrer... Autre question, je programme pour mon travail mais sans que ce soit mon boulot. Comment faire pour copier le document avec les macros et les boites de dialogues ? J'ai déjà eu du mal à comprendre les librairies (pour charger la boite de dialogue), alors là je suis franchement dépassé...

Merci d'avance

Un débutant ;)

######

Sub ouvre

oexport = ThisComponent otext = oexport.Text Libname = "Tools" Dialoglibraries.Loadlibrary("Standard") box = LoadDialog("Standard", "Accueil") box.execute()

End Sub

Sub expose ' déclenchement à partir d'un clic sur un bouton pere = box.getcontrol("pere").getText() mere = box.getcontrol("mere").getText() paragraphe = com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK curseur = otext.createTextCursor

curseur.paraAdjust = "center" otext.insertString(curseur,_ "De l'union de " & pere & " et " & mere & " est issu un enfant " & prenom1 &_ " né le " & date1,_ false)

End Sub