MS Word: Remove All Hyperlinks

Sub RemoveAllHyperlinks()

Dim i As Integer
For i = ActiveDocument.Hyperlinks.Count To 1 Step -1
ActiveDocument.Hyperlinks(i).Range.Text = _
ActiveDocument.Hyperlinks(i).TextToDisplay
Next i

End Sub