GESTION DU RTF

Utiliser l’ocx suivant richtx32.ocx

Function RtfToTxt(Texte)

Set objRTF = CreateObject(« RichText.RichTextCtrl »)
objRTF() = Texte

n = objRTF.Text
m = 1
Do Until m = 0
n = Replace(n, Chr(13) & Chr(10), « | »)
m = InStr(n, Chr(13) & Chr(10))
Loop

l = l & n

RtfToTxt = l

Set objRTF = Nothing

End Function