I am having to load my saved rtf file up and apply the following changes in order to remove extra unwanted spaces from content. This mainly is text with attributes at the beginning of a line (or paragraph), throwing a space at the beginning. I believe this is due to \ul and \ulnone not properly concatenating to the content and requiring a space to be inserted.
Dim r1 As Regex = New Regex("ulnone \\par", RegexOptions.IgnoreCase)
Dim r2 As Regex = New Regex("ul \\par", RegexOptions.IgnoreCase)
rtfString = r1.Replace(rtfString, "ulnone1", 1)
rtfString = r2.Replace(rtfString, "ul1", 1)
Dim newRTF As String = rtfString.Replace("Times New Roman", "Helvetica")
newRTF = newRTF.Replace("\ulnone ", "\ulnone1")
newRTF = newRTF.Replace("\ul ", "\ul1")
newRTF = newRTF.Replace("\ulnone ", "\ulnone1 ")
newRTF = newRTF.Replace("\ul ", "\ul1 ")
With the above replacements, my RTF file appears proper in a variety of application (wordpad, wword, TextEdit, placed via indesign, and a few others).
The font replacement is in there because although it has Helvetica defined as the default font (and appears as helvetica in CuteEditor) the resulting rtf has Times New Roman as the font.