How to containts from Data table ?

Environment("Reportpath")="C:\Result.xls"
a=Browser("Google").Page("Google").WebTable
("index:=0").GetROProperty("outerhtml")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WriteFile = FSO.CreateTextFile( Environment
("Reportpath"), True)
writeFile.writeLine(a)
writeFile.close

How to Past an Image into the word documents?

Set objWord = CreateObject( "Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents. Add()
Set objSelection = objWord.Selection

Set objShape = objDoc.Shapes
objShape.AddPicture ("c:\images.jpg")