To: Melon,
I'm not forsure that I understand what you need. I did the following and it
appeared that the RTF text copied from one document to another document
without losing any of its formatting. Whatelse do you need?
Sub OpenRtf()
Dim rtfDoc As Document
Dim actDoc As Document
Dim oRange As Range
Set actDoc = ActiveDocument
Set oRange = actDoc.Range
oRange.Collapse wdCollapseEnd
Set rtfDoc = Documents.Open("c:\path\file.rtf")
rtfDoc.Range.Copy
oRange.Paste
End Sub
Steven Craig Miller