Piszę makro VB, aby wykonać przetwarzanie dokumentów dla mojej pracy. Linie tekstu są przeszukiwane, a tekst w nawiasie jest umieszczany na liście (pole).

Problem pojawia się, gdy chcę usunąć wszystkie hiperłącza w dokumencie, a następnie wygenerować nowe (niekoniecznie w lokalizacji oryginalnych hiperłączy)

Problem polega na tym, jak usunąć istniejące hiperłącza?

Mój obecny problem polega na tym, że za każdym razem, gdy link zostanie dodany, liczba hiperłączy wzrośnie o jeden, ale po jego usunięciu liczba ta NIE ulega zmniejszeniu. (w rezultacie mam teraz dokument z 32 linkami - wszystkie puste z wyjątkiem 3, które umieściłem w sobie - nie pojawiają się w dokumencie)

Na końcu kodu próbuję usunąć hiperłącza.

Private Sub FindLinksV3_Click()

    ListOfLinks.Clear

    ListOfLinks.AddItem Now
    ListOfLinks.AddItem ("Test String 1")

    ListOfLinks.AddItem ActiveDocument.FullName

    SentenceCount = ActiveDocument.Sentences.Count
    ListOfLinks.AddItem ("Sentence Count:" & SentenceCount)
    counter = 0

    For Each myobject In ActiveDocument.Sentences    ' Iterate through each element.
        ListOfLinks.AddItem myobject
        counter = counter + 1

        BracketStart = (InStr(1, myobject, "("))

        If BracketStart > 0 Then
            BracketStop = (InStr(1, myobject, ")"))

            If BracketStop > 0 Then
                ListOfLinks.AddItem Mid$(myobject, BracketStart + 1, BracketStop - BracketStart - 1)

                ActiveDocument.Sentences(counter).Select

                ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
                "http://testnolink/" & counter, ScreenTip:=""  'TextToDisplay:=""

            End If
        End If
    Next

    'ActiveDocument.Sentences(1).Select
    '
    'Selection.Range.Hyperlinks(1).Delete

    ActiveDocument.Hyperlinks.Item(1).Delete

    Debug.Print ActiveDocument.Hyperlinks.Count

End Sub