WordVBA清除超链接

Sub WordClearHyperlinks()
Dim oField As Field
For Each oField In ActiveDocument.Fields
If oField.Type = wdFieldHyperlink Then
oField.Unlink
End If
Next
Set oField = Nothing
End Sub
============================================
Sub WordClearHyperlinks()
For Each link In ActiveDocument.Hyperlinks
link.Delete
Next

End Sub
============================================
Sub PPTClearHyperlinks()
For Each link In ActiveWindow.Selection.SlideRange.Hyperlinks
link.Delete
Next

End Sub