Bonjour, J'ai encore besoin de quelques explications ;-)

J'essaie de récupérer les catégories d'autotexte par macro.

La catégorie dmaths est dans repOOo\user\autotext\ La catégorie standard est dans repOOo\share\autotext\french\

Je n'arrive pas à récupérer standard en l'appellant par son nom (getByName). Il y a manifestement un problème de répertoire que je ne sais pas résoudre. Ci-dessous mes essais. Quelqu'un peut-il m'éclairer ? Agnès S. ************************************ Début de la macro :

Sub Main Dim MonDocument As Object Dim MonTexte As Object Dim MonCurseur As Object Dim AutoTexteContainer as Object Dim Groupe As Object Dim n as Integer '4 lignes MonDocument = ThisComponent MonTexte = MonDocument.Text MonCurseur = MonTexte.createTextCursor AutoTexteContainer = CreateUnoService("com.sun.star.text.AutoTextContainer")

---------- Suite et fin: 3 essais différents avec résultats différents

'dmaths est dans \user\autotext\ 'les 3 lignes suivantes : OK Groupe = AutoTexteContainer.getByName ("dmaths") MonCurseur.SetString(Groupe.Title) MonCurseur.CollapseToEnd() End Sub

'les 3 lignes suivantes : rien Groupe = AutoTexteContainer.getByName ("standard") MonCurseur.SetString(Groupe.Title) MonCurseur.CollapseToEnd() End Sub

'les 5 lignes suivantes : 'on récupère les catégories de \share\autotext\french ! For n = 0 To AutoTexteContainer.Count - 1 Groupe = AutoTexteContainer.getByIndex (n) MonCurseur.SetString(Groupe.Title) MonCurseur.CollapseToEnd() Next n End Sub ************************************