Bonjour,

J'ai utilisé sans problème, à l'aide de la documentation en ligne, le ReplaceDescriptor pour remplacer un terme dans l'ensemble de mon document Writer. Maintenant, je souhaiterais pouvoir limiter ce remplacement à la sélection en cours de l'utilisateur.

Je pensais simplement faire ainsi

Doc = StarDesktop.CurrentComponent.CurrentSelection If IsNull(Doc) Then ' pas de sélection, on remplace tout Replace = StarDesktop.CurrentComponent.createReplaceDescriptor Else ' une sélection on remplace dedans Replace = Doc.createReplaceDescriptor End If

... mais ça ne marche pas. Le plus étrange c'est que , au debug, on s'arrête sur la création du Descriptor, sans message d'erreur.

Bref, comment puis je construire une 'ReplaceDescriptor' à partir d'un 'TextRange' tel que celui que me retourne la méthode 'CurrentSelection' ?

Ou peut être ce n'est pas la bonne direction ?