如何使用宏从Word文档中删除所有超链接？

Question

如何使用VBA宏从Word文档中删除所有超链接？

在Excel中，我可以使用VBA选择所有内容并使用

Selection.Hyperlinks.Delete

Word中有类似内容吗？

Answer 1

您可以使用以下VBA宏从word文档中删除所有超链接。

Sub ClearHyperlinks()

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