VBA, .NET and embedding OLE objects in a Word document.

[Robin Tucker]

At the moment I have place-holders in my Word document (before you say it,
yes I've posted this query in the VBA newsgroups but they are a little
slow - in fact reply was non-existent!). I'm running through the document,
finding the placeholders (which are jpeg images) and replacing them with OLE
objects, the location of which is stored in a hyperlink on the image. The
reason I'm doing this is because my reporting package flattens OLE objects
down to images, rather than embedding them directly and my users need to be
able to manipulate OLE objects in-place in Microsoft Word when the report is
done.

My question is how do you "replace" an image with an OLE object with word
VBA? I'm able to add an OLE object using the following, but once I've found
an image i want to replace, how do i insert the new object in the exact same
place on the page as the image? (after deleting the image of course).

' Create the Word object

theApplication = CType(CreateObj ect("Word.Appli cation"),
Word.Applicatio nClass)

' Open the report file

theApplication. Documents.Open( "C:\Documen ts and
Settings\R.Tuck er\Desktop\test ing.doc")

' Add an OLE object

theApplication. ActiveDocument. InlineShapes.Ad dOLEObject(Clas sType:="xxxx.yy y
y", FileName:="C:\D ocuments and Settings\R.Tuck er\Desktop\Gran d Power
3.tgw", LinkToFile:=Fal se,
DisplayAsIcon:= False)