|
|
#2
05-09-2016, 03:57 PM
|
||||
|
||||
Try:
Code:
Sub HyperlinkToHRef()
Application.ScreenUpdating = False
With ActiveDocument
While .Hyperlinks.Count > 0
With .Hyperlinks(1)
.Range.InsertAfter "<a href=""" & .Address & """>" & .TextToDisplay & "</a>"
.Range.Delete
End With
Wend
End With
Application.ScreenUpdating = True
End Sub
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] 
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 Convert html links into embedded hyperlinks
|
njcloud | Mail Merge | 23 | 02-04-2020 02:00 PM |
| Word 2013's "File > Convert" only partly converts some Hyperlinks | RichardDavey | Word | 0 | 05-27-2015 10:37 AM |
| Hyperlinks in PP | ArtemMetr | PowerPoint | 2 | 03-20-2015 01:57 AM |
|
PDF hyperlinks
|
banccard | Word | 1 | 12-22-2011 08:45 PM |
| hyperlinks | forrestgump | Word | 0 | 12-30-2010 04:14 AM |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode