This function converts RTF text format into the plain one.
object.RTF2Plain(aRichText)
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISProfile interface |
|
aRichText |
In, Required | string |
The text format that will be converted into another
text format |
string
Display the text of RTF format converted into the plain text format.
Dim aPatient
Dim aRichText
Dim aNote
Set aPatient = Profile.SelectPatient
aRichText = aPatient.RTFNote
aNote = Profile.RTF2Plain(aRichText)
Profile.MsgBox(aNote)