Estou escrevendo uma Macro VB para fazer algum processamento de documentos para o meu trabalho. As linhas de texto são pesquisadas e o texto entre parênteses é colocado em uma lista (caixa).

O problema surge quando eu quero remover todos os hiperlinks no documento e, em seguida, gerar novos (não necessariamente no local dos hiperlinks originais)

Então, o problema é como remover os hiperlinks existentes?

Meu problema atual é que toda vez que um link é adicionado, a contagem de hiperlinks sobe um, mas quando você o exclui, a contagem NÃO diminui. (como resultado, agora tenho um documento com 32 links - todos vazios, com exceção de 3 que eu coloquei em mim mesmo - eles não aparecem no documento)

No final do código estão minhas tentativas de remover os hiperlinks.

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