Extract embedded images and save according to hyperlink.

[PRA007]

I have document containing embedded images.


I want to extract it and name it according to underlying hyperlink.

My embedded images are recognized by (modified) code from https://www.msofficeforums.com/word-...mages-web.html

I inserted two lines not supported by word.

Sub Demo()
Application.ScreenUpdating = False
Dim iShp As InlineShape
For Each iShp In ActiveDocument.InlineShapes
  With iShp.Range
    If .Hyperlinks.Count = 1 Then
    MsgBox .Hyperlinks(1).Address
      iShp.Export "D:\" & .Hyperlinks(1).Address & ".png" 'I think not possible.
      'or
      iShp.changenamge ".Hyperlinks(1).Address" 'Don't know about it.
    End If
  End With
Next
Application.ScreenUpdating = True
End Sub

Is there any way I can export the embedded images as it's hyperlinked name. I know that I can extract it using html or .zip method but it gives image named as "image001.png" format. Is there any way I can do this?

iShp.changenamge ".Hyperlinks(1).Address" 'Don't know about it.

I mean if this eventually change the image name so that while extracting using zip or something It can give the desired result.

[gmayor]

I don't think it is possible to do exactly what you require, however you may find the latest addition to http://www.gmayor.com/extract_images_from_word.htm useful.

[PRA007]

Thanks for such great tip. After Your answer I learned something about XML. Feeling Great. Trying to make VBSCRIPT XML Parser. Will share my research.