RTF Memo - make font size consistent

Users continually paste text into various RTF memo fields - this works well, except they are now a hodgepodge of font sizes, some of them very large and hard to read.
I found the code below - which seemed to work, but doesn't really. It works the first time, but then when you, for example, change some local formatting (e.g., add some italic to a phrase), it seems to nuke the memo field altogether -
any ideas are appreciated:

CALLING THE FUNCTION:

Me.txtProjectNotes_Production.value = nukefontsize_in_rtf(Me.txtProjectNotes_Production.Value)

Function nukefontsize_in_rtf(strtext As String) As String


   
    Dim lngTagStart As Long
    Dim lngTagEnd As Long
    Dim blnReset As Boolean

   
    Do
        lngTagStart = InStr(strtext, "<font")
        If lngTagStart > 0 Then
            lngTagEnd = InStr(lngTagStart, strtext, ">")
            strtext = left$(strtext, lngTagStart - 1) & Mid$(strtext, lngTagEnd + 1)
            blnReset = True
        End If
    Loop Until lngTagStart = 0

    If blnReset Then
        strtext = Replace(strtext, "</font>", vbNullString)
        nukefontsize_in_rtf = strtext
    End If
End Function
terpsichoreAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Jeffrey CoachmanMIS LiasonCommented:
Perhaps an expert more familiar with HTML and HTML tags can help with modifying that code...

In the meantime you can "make" the text all look the same by creating a query of the table and adding in a field that will ignore all the formatting and present the memo field as plain text...

Something like this:
SELECT Fld1, Fld2, YourMemoField, Plaintext(YourMemoField) as PlainMemo
FROM YourTable
0
David Johnson, CD, MVPOwnerCommented:
Don't make it a rtf editor but just a plain-text editor..  or as noted above strip all formatting and only use the plain-text
0
terpsichoreAuthor Commented:
well, we would like to have local formatting (bold, italic, underline, bullet list) but without the differing point sizes.
The code above seems almost there... but I think there is something missing - or maybe an alternative approach.
0
terpsichoreAuthor Commented:
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
terpsichoreAuthor Commented:
found this on a Microsoft blog
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.