Hello Alex

I'm not sure to understand but i hope this example help you



Dim WordApp As Object
Dim WordObj As Shape

Application.ScreenUpdating = False

'suppose Word Object is the first object in the sheet
Set WordObj = Worksheets(1).Shapes(1)
Set WordApp = WordObj.OLEFormat.Object.Object.Application

'goto the fist line in the Word Object
WordApp.Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute,
Count:=1
'insert datas
WordApp.Selection.TypeText Text:="essai d'insertion" & vbLf &
Range("A1") & vbLf

Range("A1").Select
Application.ScreenUpdating = True



Regards ,
michel


--
michelxld
------------------------------------------------------------------------
michelxld's Profile: http://www.excelforum.com/member.php...o&userid=17367
View this thread: http://www.excelforum.com/showthread...hreadid=399354