Fetch images from URLs automatically

macropod · #2 12-25-2013, 01:25 AM

Assuming they're active hyperlinks and the document contains no other hyperlinks, you could use a macro like:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim i As Long, Rng As Range, StrAddr As String
With ActiveDocument
  For i = .Hyperlinks.Count To 1 Step -1
    Set Rng = .Hyperlinks(i).Range
    StrAddr = Chr(34) & .Hyperlinks(i).Address & Chr(34)
    .Fields.Add Rng, Type:=wdFieldIncludePicture, Text:=StrAddr, PreserveFormatting:=False
  Next
End With
Application.ScreenUpdating = True
End Sub

For macro installation & usage instructions, see: http://www.gmayor.com/installing_macro.htm

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How do MS Office products link to URLs?	stegraham	Office	2	10-22-2013 04:52 AM
Images stretching to margins automatically	Ulodesk	Word	3	08-13-2012 10:39 AM
URLs in citations	acappella	Word	3	07-24-2012 03:28 PM
Automatically update web images on Powerpoint	thetodd14	PowerPoint	0	05-04-2011 10:37 AM
mailmerge with custom URLs?	guthrie	Mail Merge	0	03-06-2011 08:39 PM