Hyperlink.Delete does not work properly

ievakr · #1 03-16-2022, 08:44 AM

Hello,
What I want to do, is for macro to find all hyperlinks with word "servlet" in the address and delete the hyperlink:

Code:

Sub Link()


Dim H As Hyperlink
    For Each H In ActiveDocument.Hyperlinks
        If InStr(H.Address, "servlet") <> 0 Then
            H.Delete
        End If
    Next H
End Sub

But H.Delete breaks the Next H function and in result only every second hyperlink is deleted and I have to run the macro again. Meanwhile H.Follow works like a charm in this code.
What can it be?

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Lookup function does not work properly	Intruder	Excel	3	06-01-2020 09:24 AM
Function SaveAs2 does not work properly	Marco Hof	Word VBA	2	06-13-2016 07:39 AM
Hyperlink: open the document only once, quit & reopen PP, hyperlink doesnt work anymore	quanghuynguyenhua	PowerPoint	0	10-10-2015 06:17 PM
formula does not work properly	msnarayanan	Excel	2	08-12-2015 12:40 AM
Hyperlink not appearing properly in word 2010	sathish	Word	2	04-27-2014 10:09 PM