Trefor,
You need to reference ms forms 2.0 object library and and microsoft Word
object library for this to work:-

Option Explicit

Dim objClipBoard(1) As New DataObject
Dim objWd As Word.Application
Dim objWdDoc As Word.Document

Sub test()

Set objWd = New Word.Application
objWd.Visible = True
Set objWdDoc = objWd.Documents.Open("c:\test.doc")

objWdDoc.Frames(1).Select 'index of 1 being first frame in document
objWdDoc.Frames(1).Range.Select

Dim strFrameContents As String
strFrameContents = objWd.Selection
objClipBoard(0).SetText strFrameContents
objClipBoard(0).PutInClipboard

objClipBoard(1).GetFromClipboard
Range("a1").Select
ActiveCell.Formula = objClipBoard(1).GetText

Set objWd = Nothing
Set objWdDoc = Nothing
End
End Sub