Removing all hyperlinks in document, but keep the hyperlink style (Word Macro)

Technorati Tags:

Sub RemoveHyperlinksKeepStyle( )

Dim oHyperlink As Hyperlink
Dim i As Integer
Dim rng As Range

For i = ActiveDocument.Hyperlinks.Count To 1 Step -1
Set oHyperlink = ActiveDocument.Hyperlinks(i)
Set rng = Hyperlink.Range
Hyperlink.Delete
rng.Style = wdStyleHyperlink
Next i

End Sub