replacesubstring rtitem

[afournery]

bonjour,

je suis en client lourd Notes 6.5.

j ai besoin de faire en lotus script un bouton qui aura pour action de rechercher une valeur par une autre.

si je prend une function replacesubstring je perds le style.

si je prend body.createrange
replacesubstring
je perd le pointeur

comment faire ?
au secours

[stloje]

Salut Arnaud, ça fait longtemps depuis Allianz!

Ca va peut être te dépanner!

Public Class RichTextClass
Private richItem As Variant

Sub new (richItem As Variant)
Set Me.richItem = richItem
End Sub

'cette fonction permet de remplacer du texte dans un champ de type RichText
Function ExchangeText (wordToFind As String, wordToExchange As String)
Dim rtnav As NotesRichTextNavigator
Dim rtrange As NotesRichTextRange
Dim count As Long

Set rtnav = richItem.CreateNavigator
'il faut rechercher l'élément dans le paragraphe
If rtnav.FindFirstElement(RTELEM_TYPE_TEXTPARAGRAPH) Then
Set rtrange = richItem.CreateRange
count = rtrange.FindAndReplace _
(wordToFind, wordToExchange, RT_REPL_ALL)
'il faut s'assurer que le remplacement des mots ne génère pas aussi des espaces en trop
If count > 0 Then
Call richItem.Compact
End If
End If
'rafraîchissement du champ texte riche
Call UpDateRichText ()
End Function
Private Function UpDateRichText ()
Call richItem.UpDate
End Function
End Class