Step backwards rather than forward when going through a collection where you are deleting members of the collection. This is a common problem.
Sub Link()
' Charles Kenyon 16 March 2022
' http://www.vbaexpress.com/forum/newreply.php?do=postreply&t=69739
' macro to find all hyperlinks with word "servlet" in the address and delete the hyperlink
'
Const strFindWord = "servlet" ' text to find in hyperlink's address
Dim H As Hyperlink, iH As Long, iCount As Long
Let iH = ActiveDocument.Hyperlinks.Count
For iCount = iH To 1 Step -1
Set H = ActiveDocument.Hyperlinks(iCount)
If InStr(H.Address, strFindWord) <> 0 Then
H.Delete
End If
Next iCount
Set H = Nothing
End Sub