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.