Try this for importing the rtf into a new document....might give you some ideas.
[VBA]Option Explicit
Sub test()
Dim doc As Document
Dim r As Range
Dim num_files As Integer
Dim file_name As String
Dim dir_path As String
Dim file_ext As String
Dim lngPage As Long

Application.ScreenUpdating = False
Set doc = Application.Documents.Add
' Set doc = ThisDocument

dir_path = "F:\Temp\"
file_ext = "rtf"

file_name = Dir(dir_path & "*." & file_ext)
Do While Len(file_name) > 0
Documents.Open FileName:=dir_path & file_name
lngPage = ActiveDocument.PageSetup.Orientation
Set r = Selection.Range
r.WholeStory
r.Copy
ActiveDocument.Close wdDoNotSaveChanges
With Selection
With .Sections(1).PageSetup
.Orientation = lngPage
.SectionStart = wdSectionNewPage
End With
.PasteAndFormat wdFormatOriginalFormatting
file_name = Dir()
If Len(file_name) > 0 Then
.InsertBreak Type:=wdSectionBreakNextPage
End If
.EndKey unit:=wdStory
End With
Loop

End Sub[/VBA]