如何用vba删除word文档中的所有超链接？

当一个word文档中有很多超链接时，需要将所有的超链接都删除。

删除word超链接有两种，一种是把超链接变成静态的文本，没有超链接的效果。

一种是把超链接的文本一起删除。

如下的vba代码演示了如何把超链接都变成静态文本，同时把文件也删除：

Sub QQ1722187970()
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Dim oHL As Hyperlink
    With oDoc
        '用逆序的方式删除
        For i = .Hyperlinks.Count To 1 Step -1
            Set oHL = .Hyperlinks(i)
            With oHL
                '删除所有超链接
                oHL.Delete
                '删除所有超链接的文件
                oHL.Range.Delete
            End With
        Next i
    End With
End Sub