Re: [fr-users] mauvaise transcription des champs du passage fichier Odt vers Doc

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 à users+unsubscribe@fr.libreoffice.org 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