How to replace damaged hyperlinked images from web.

macropod · #2 12-03-2015, 12:08 AM

Here's some code to get you started. I believe you already have code for querying websites and retrieving content from them.

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim iShp As InlineShape
For Each iShp In ActiveDocument.InlineShapes
  With iShp.Range
    If .Hyperlinks.Count = 1 Then
      .Hyperlinks(1).Address = Replace(.Hyperlinks(1).Address, "about://", "HTTP//")
    End If
  End With
Next
Application.ScreenUpdating = True
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Missing or damaged XLLEX.DLL	Mikets	Office	1	01-02-2014 11:49 PM
Searhc for Hyperlinked Word and replace with plain text or nothing	somniloquist	Word	3	10-04-2011 02:33 AM
Why isn't my hyperlinked word text hyperlinked when I convert it to pdf?	Obisco	Word	0	12-10-2010 01:58 PM
copy-pasting hyperlinked images: work only at the edges	Xuanzang	PowerPoint	0	12-07-2010 02:35 AM
how find and replace images	pol2005	Word	2	06-10-2010 10:24 AM