|
|
#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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] 
|
| Tags |
| word vba |
| Thread Tools | |
| Display Modes | |
|
|
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 |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode