Help with inserting pictures in word

[Kohr]

I am trying to insert pictures into a Word document using the following code. I have not been able to get "Shapes.AddPicture" to work using several different combinations. Has anyone had any luck with inserting pictures into word?

"$word.Selection.Paste" works but it puts the image in as a .bmp file and I will need to insert lots of images.

$word = ObjCreate("Word.Application")
$word.visible = False
$word.Documents.Add

Dim $FileName
$FileName = "C:\Documents and Settings\All Users\Desktop\dump_full.jpg"
$word.Activedocument.Shapes.AddPicture ($FileName, False, True, 0, 0, 0, 0, 0)

$word.ChangeFileOpenDirectory( @DesktopDir )
$word.Activedocument.SaveAs( "test.doc" )
$word.Application.Quit

Kohr

[Kohr]

It is nice when you figure out your own problems.

$word.Activedocument.InlineShapes.AddPicture ($FileName, False, True)

Kohr