Le 05/03/2018 à 19:36, linux a écrit :
les champs personnalisés (Fichier > Propriétés, onglet Propriétés
personnalisées peuvent être gérés macrobiotiquement.
Ok j'ai bien créer une propriété un complément je n'ai pas trouvé tout
de suite on l'insert dans un texte par Insertion > Champ>Autres Champs
Info Document>Personnaliser
Par contre coté macro je sèches un peu
Exemple que j'utilise pour les champs d'utilisateurs
oLesChampsUtilisateurCDLO = oDocumentOffreCDLO.TextFieldMasters
oLeChampUtilisateurSelectionerCDLO =
oLesChampsUtilisateurCDLO.getByName("com.sun.star.text.FieldMaster.User.NomClient")
oLeChampUtilisateurSelectionerCDLO.Content =
InformationsOffreCDLO(1,0) 'nom du client
......................................
oDocumentOffreCDLO.TextFields.refresh()
Pour les champs personnalisés (custom fields) :
Dim oCustomFields As Object
oCustomFields = ThisComponent.DocumentProperties.UserDefinedProperties
'chercher une propriété
If oCustomFields.PropertySetInfo.hasPropertyByName("NomCustom") Then
'lire la valeur
Valeur = oCustomFields.getPropertyValue("NomCustom")
'modifier la valeur
oCustomFields.setPropertyValue("NomCustom", "Nouvelle valeur")
End If
'créer une propriété texte
oCustomFields.addProperty("CustomString",
com.sun.star.beans.PropertyAttribute.REMOVEABLE, "contenu de la propriété")
'créer une propriété numérique
oCustomFields.addProperty("CustomNumber", _
com.sun.star.beans.PropertyAttribute.REMOVEABLE, _
CreateUnoValue("double", 0))
(etc. - voir pages 265 sqq de la bible "Programmation OpenOffice.org et
LibreOffice" chez Eyrolles - hautement conseillé)
Si vous répondez, merci de penser à utiliser la fonction "répondre à
tous" de votre logiciel de courrier électronique de façon que la liste
reçoive une copie de votre réponse.
Bien cordialement,
--
Jean-Francois Nifenecker, Bordeaux
--
Envoyez un mail à [email protected] pour vous désinscrire
Les archives de la liste sont disponibles à
https://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne
pourront pas être supprimés
