Bonjour,
Le code ci-dessous crée bien un nouveau champ d'entrée bibliographique.
Mais la valeur donnée à un attribut du champ n'est pas mémorisée, malgré la
commande refresh() qui suit.
(J'ai vérifié par macro sur une entrée biblio créée manuellement que .value est
bien la propriété ad hoc).
Merci pour toute aide
Serge
----------------------------
sub CreerNouvelleEntreeBiblio
dim monDocument as object
monDocument=ThisComponent
'Rechercher le champ maitre biblio
leChampMaitreBiblio=monDocument.textFieldMasters.getByName("com.sun.star.text.FieldMaster.Bibliography")
'Creer un nouveau champ biblio
leChamp=monDocument.createInstance("com.sun.star.text.TextField.Bibliography")
leChamp.attachTextFieldMaster(leChampMaitreBiblio)
dim MonCurseurVisible as object
MonCurseurVisible=monDocument.CurrentController.ViewCursor
monDocument.text.InsertTextContent(MonCurseurVisible,leChamp,false)
leChamp.Fields(0).value="Ref 1"
monDocument.textFields.refresh()
msgbox Lechamp.Fields(0).value
'xray leChamp
exit sub
