Hi Barb,

like this:

Sub Test10000()

Dim oWrd As Word.Application
Dim rTmp As Word.Range
Dim s As String
Dim oWrk As Workbook
Dim oSht As Worksheet
Set oWrk = ActiveWorkbook
Set oSht = ActiveSheet
oSht.OLEObjects(1).Activate
Set oWrd = GetObject(, "Word.application")
Set rTmp = oWrd.ActiveDocument.Range
s = rTmp.text
oWrd.ActiveDocument.Close
'oWrd.Quit
oSht.OLEObjects("TextBox1").Object.Value = s
End Sub

Don't try to paste a 100 pages word doc with pictures! ;-)

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"