Estoy escribiendo una macro VB para hacer un procesamiento de documentos para mi trabajo. Se buscan las líneas de texto y el texto entre corchetes se coloca en una lista (cuadro).

El problema surge cuando quiero eliminar todos los hipervínculos en el documento y luego generar nuevos (no necesariamente en la ubicación de los hipervínculos originales)

Entonces, el problema es ¿Cómo elimino los hipervínculos existentes?

Mi problema actual es que cada vez que se agrega un enlace, el recuento de hipervínculos aumenta uno, pero cuando lo elimina, el recuento NO se reduce. (como resultado, ahora tengo un documento con 32 enlaces, todos vacíos excepto los 3 que coloco yo mismo, no aparecen en el documento)

Al final del código están mis intentos de eliminar los hipervínculos.

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