>After pasting the code to VFP and making the necessary syntax changes, I received an error message when trying to do anything with the picture :"The requested member of the collection does not exist".
>oWord=createobject('Word.Application')
>With oWord
> .Visible=.T.
> .Documents.Add
> .ActiveWindow.ActivePane.View.SeekView = 9 && wdSeekCurrentPageHeader
> .Selection.InlineShapes.AddPicture('d:\xyz.bmp')
> With .Selection.InlineShapes(1) && Error at this

Try addressing the InlineShapes collection through the document rather than through the Selection object:

oWord.ActiveDocument.InlineShapes[1]

Tamar