hey! ,
friends
I am trying to link with the MSword
I have a controll richtextbox and a command button. i want that when i click on the command button the text in the textbox are inserted in the new MSword file. however i am able to do so with following code but when i changed the text formatting in the textbox like color change, font size, font then the MSword stores the text as a normal text or stroes text without formatting.

the code are

dim i as word.application
dim r as document
dim w as range

Private Sub Form_Load()
Set i = CreateObject("word.application")
Set r = i.Documents.Add
set w =r.range()
end sub

command1.click()
r.Range.InsertAfter richtextbox1.text
end sub


please help me /reply soon!!!!!
thanking u