How to save out Embedded Image objects inside the Word document ?

[Guest]

Hi everybody

I have a collection of word document which has got lots of Embedded image
object inside it.

now what i have to do is read each word document and save out each embedded
images to my hard drive ?
how do i do this without using clipboard method ?

Using the following code :

Dim word_doc As Microsoft.Office.Interop.Word.Document

word_doc = word_app.Documents.Open(FileName:="E:\testing.doc",
ConfirmConversions:=False, ReadOnly:=True, AddToRecentFiles:=False,
Format:=Microsoft.Office.Interop.Word.WdOpenFormat.wdOpenFormatAuto)
' Delete InlineShapes.
With word_doc.InlineShapes
Do While .Count > 0
.Item(1).Delete()
Loop
End With



i can find any inline objects and delete it . but what i want is not to
delete but to save out to the hard drive ?

Any idea ?

regards

suis