Wie kann man ein Access RTF Format im Nur Text Feld - in Excel order Word exportieren

Public Function ConvRTFtoText( _
  ByVal strRTF As String, _
  Optional booSingleRun As Boolean) _
  As String

' Converts RTF formatted string to plain text using RTF ActiveX control.  

{\rtf1
Guten Tag!
\line
{\i Dies} ist \b{\i ein
\i0 formatierter \b0Text}.
\par
\i0 Das \b0Ende.
}

Sub ConvertRichtextColumnToPlaintextColumn()
    On Error Resume Next
    'Variablen  
    Dim rec As Recordset, rtf as Object
    ' Konstanten  
    ' Name der Tabelle  
    Const TABLENAME = "Testdaten"  
    ' Name des Feldes in dem der Richtext-String steht  
    Const FIELDNAME = "Beschreibung"  
    ' Name der neuen Spalte die erzeugt wird  
    Const FIELDNAME_NEW = "Beschreibung_Neu"  
    ' --------  
    'RTF Control erzeugen  
    Set rtf = CreateObject("RICHTEXT.RichtextCtrl")  
    With CurrentDb
        ' neue Spalte der Tabelle hinzufügen  
        .Execute "ALTER TABLE " & TABLENAME & " ADD " & FIELDNAME_NEW & " MEMO"  
        'Recordset öffnen  
        Set rec = .OpenRecordset(TABLENAME)
        rec.MoveFirst
        ' Jede Zeile durchlaufen und umgewandelten Richtext der neuen Spalte zuweisen  
        While Not rec.EOF
            rtf.TextRTF = rec.Fields(FIELDNAME).Value
            rec.Edit
            rec.Fields(FIELDNAME_NEW).Value = Application.PlainText(rtf.Text)
            rec.Update
            rec.MoveNext
        Wend
    End With
    Set rtf = Nothing
    MsgBox "Verabeitung abgeschlossen", vbInformation  
End Sub

Public Function ConvRTFtoText( _
  ByVal strRTF As String, _
  Optional booSingleRun As Boolean) _
  As String

' Converts RTF formatted string to plain text using RTF ActiveX control.  
' When finished, Rich Text object is removed if booSingleRun is True.  
'  
' 2001-05-27. Cactus Data ApS, CPH.  
  
  Static objRTF As Object
  Static booErr As Boolean
  Dim strText   As String
  
  On Error GoTo Err_ConvRTFtoText
  
  If objRTF Is Nothing Then
    Set objRTF = CreateObject("RICHTEXT.RichtextCtrl")  
  End If
  
  With objRTF
    .TextRTF = strRTF
    strText = .Text
  End With
  
  If booSingleRun = True Then
    Set objRTF = Nothing
  End If
  
  ConvRTFtoText = strText
  
Exit_ConvRTFtoText:
  Exit Function

Err_ConvRTFtoText:
  If booErr = False Then
    MsgBox "Error " & Err.Number & ". " & Err.Description & "!", _  
           vbExclamation + vbOKOnly, _
           "Rich Text converter"  
    ' Only show error message once per session.  
    booErr = True
  End If
  Resume Exit_ConvRTFtoText
  
End Function