Bonjour :-)

Je recherche du code qui me permettrai d'insérer des champ de Bdd (en vue de mailling) Je pense qu'il s'agit de TextField mais service utiliser(com.sun.star.text.TextField.??? et comment passer les arguments et lesquels?

J'utilise actuellement le code suivant fourni par l'enregistreur

Jluc

document = ThisComponent.CurrentController.Frame dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ---------------------------------------------------------------------- dim args1(6) as new com.sun.star.beans.PropertyValue args1(0).Name = "Type" args1(0).Value = 19 args1(1).Name = "DBName" args1(1).Value = NomSource args1(2).Name = "Command" args1(2).Value = "OCarnetAdr1" args1(3).Name = "ColumnName" args1(3).Value = "SOCIETE" args1(4).Name = "CommandType" args1(4).Value = 0 args1(5).Name = "Content" args1(5).Value = "" args1(6).Name = "Format" args1(6).Value = 5000

dispatcher.executeDispatch(document, ".uno:InsertDBField", "", 0, args1())

rem ---------------------------------------------------------------------- dispatcher.executeDispatch(document, ".uno:InsertPara", "", 0, Array())