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())
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
