saving picture from word to other folder

i am using vb6, reading a word document, and paragraph by paragraph, check if there is any picture inserted, if yes, then copy out this picture and paste it to other folder. but i failed to do so cause i dont know what is the save picture command that i suppose to use, can anyone here help me?

'**************************************************************
Dim wdApplication As Word.Application
Dim docWord As Word.document
Dim parCounter As Word.Paragraph
Dim wParas As Word.Paragraphs

Set wdApplication = CreateObject("Word.Application")

Set docWord = wdApplication.Documents.Open("C: est.doc")
Set wParas = docWord.Paragraphs
For Each parCounter In wParas '*****read paragraph by paragraph
If parCounter.Range.InlineShapes.Count > 0 Then '********if this paragraph contain inlineshape

'*******here is my problem, i would like to copy this inlineshape and save to other folder **********
'***************************************************************
End If
Next

docWord.Close False
wdApplication.Quit wdDoNotSaveChanges
Set docWord = Nothing

'*******************************************************************

here i would like to clarify that i dont want to use If WordDocument.InlineShapes.Count > 0 Then ..... this is because other than checking the picture, i will have to check for other thing...

really need your help please, thank you.


Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories