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 ?
--
Romain PELISSE,
"The trouble with having an open mind, of course, is that people will insist
on coming along and trying to put things in it" -- Terry Pratchett
http://belaran.eu/
