Here you go. I'm currently knee-deep in AutoIt, so I used that. You can get the tool itself at autoitscript.com.
Notes:
I bound Ctrl+Shift+I to Word's InsertFile command, you should do the same for the script to work. Google it or look up on StackExchange.
The script works from assumption that an empty document is already open in MS Word and that there is only one MS Word window.
Modify the value of $locationOfRtfFiles to match your setup. It must point to the folder containing the RTFs.
The sleep interval may require adjustment (depends on performance of your computer and the size/complexity of RTF files)
The code (a bit over 10 lines, but let's hope no one is counting):
; Some common sense stuff, look it up in the docs
AutoItSetOption("TrayIconDebug", 1)
AutoItSetOption("MustDeclareVars", 1)
; Tell AutoIt to match the substring anywhere in the window title
AutoItSetOption("WinTitleMatchMode", 2)
; find a window by title and some contained text (optional),
; make it active and wait for the window to become
; active
Func MyWinWait($title, $keytext = "")
WinWait($title, $keytext)
WinActivate($title, $keytext)
WinWaitActive($title, $keytext)
Return
EndFunc
Local $locationOfRtfFiles = "C:\MyCollectionOfRtfPorn"
; for every file in the set
For $fileIndex = 1 to 70000
; focus on the main Word window
MyWinWait("Microsoft Word")
; emulate Ctrl+Shift+I
Send("{CTRLDOWN}{SHIFTDOWN}i{SHIFTUP}{CTRLUP}")
; wait for the Insert File window to open
MyWinWait("Insert File")
; type out a file's name
Send($locationOfRtfFiles & "\" & $fileIndex & ".rtf")
; confirm selection
Send("{ENTER}")
; sleep for 10 seconds before proceeding to next file
Sleep(10000)
Next
You may want to adjust the cycle limit based on the actual number of RTFs. Also, if the naming of the files does not follow the numbering scheme you originally specified, the script will need changes.