Input word file into rich text control

[mattpfc]

Hi all,

I am using the following code to take the contents of a word file and dump it into a RichText control. However the formatting applied in the word document does not come across in the migration. Any ideas how I can make this so?

Thanks in advance for all suggestions.

Private Sub get_email_body_Click()
    Dim word_document As New Word.Application
    
    word_document.Documents.Open "C:\Documents and Settings\Owner\Desktop\TEST.doc", False, True
    
    txt_email_body_text.SetFocus
    txt_email_body_text.Text = word_document.Documents(1).Content
    
    word_document.Quit False
    
    Set word_document = Nothing
End Sub