Extract URL in Word

[benk]

Hi, I'm not really a programmer, but I've found VBA to be useful in many areas of my work. But right now I'm a bit stuck. I need a way to search through documents and extract hypertext URLs as HTML code so I can cut and paste into a web CMS. I believe it can be done. Here's an example of what I want to achieve:

I want to turn:
Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Quisque a.

Into:
Lorem ipsum dolor sit amet, <a href="#">consectetuer adipiscing</a> elit. Quisque a.

Does anyone know how to perform this operation? Really appreciate any help.

[JustinLabenne]

Maybe like this?

Option Explicit
 
Sub Extraction()
    Dim hlnk As Hyperlink
    Dim C As String
    Dim d As String
    
For Each hlnk In ActiveDocument.Hyperlinks
    C = "<a href=""#"">"
    d = "</a>"
    
    hlnk.TextToDisplay = C & hlnk.TextToDisplay & d
 
Next hlnk
End Sub

[benk]

Thanks Justin, but just one problem. I need the URL that was extracted to replace the "#". Can that be done? Should I replace the "#" with "hlnk.hyperlink"?

Also, is it possible to make the text not a link anymore?

Sorry, I'm really not familiar with the code. Thanks again for the help.

[benk]

Oh, I got it. it's "hlnk.Address". =) Thanks!

[JustinLabenne]

Try this, had an issue at first with not getting the hyperlinks removed, stubborn little buggers,

Option Explicit
 
Sub Extraction()
    Dim hlnk As Hyperlink
    Dim C As String
    Dim d As String
    Do Until ThisDocument.Hyperlinks.Count = 0
    For Each hlnk In ActiveDocument.Hyperlinks
    C = "<a href=" & hlnk.Address & ">"
    d = "</a>"
        With hlnk
            .TextToDisplay = C & hlnk.TextToDisplay & d
            .Delete
        End With
    Next hlnk
    Loop
End Sub