HI_ID | HI_DOSSIER | HI_DICORIGINE | HI_DATE_TEXTE | HI_DATE_DEBUT | HI_DATE_FIN | HI_CAT | HI_TITRE | HI_TEXTE | HI_IMAGE |
437 | 0 | GENE | vers 88 | 4 | Les Romains édifient le limes | {\rtf1\ansi\ansicpg1252\deff0{\fonttbl{\f0\fnil MS Sans Serif;}{\f1\fnil\fcharset0 MS Sans Serif;}} \viewkind4\uc1\pard\lang1036\f0\fs16 Le limes \f1 d\'e9signe les fortifications romaines \'e9tablies aux fronti\'e8res entre l'empire romain et le "monde barbare" (peuples ne parlant ni grec, ni latin). \f0\par } |
Function RtfInText(RtfText)
With CreateObject("RICHTEXT.RichtextCtrl") ' or add reference to Microsoft Rich Textbox Control for early binding and With New RichTextLib.RichTextBox
.SelStart = 0 ' needs to be selected
.textrtf = RtfText
RtfInText = .Text
End With
End Function