Ich schreibe ein VB-Makro, um Dokumente für meine Arbeit zu verarbeiten. Die Textzeilen werden durchsucht und der in eckige Klammern gesetzte Text in eine Liste (Box) gestellt.

Das Problem tritt auf, wenn ich alle Hyperlinks im Dokument entfernen und dann neue generieren möchte (nicht unbedingt an der Stelle der ursprünglichen Hyperlinks).

Das Problem ist also: Wie entferne ich die vorhandenen Hyperlinks?

Mein aktuelles Problem ist, dass jedes Mal, wenn ein Link hinzugefügt wird, die Anzahl der Hyperlinks um eins erhöht wird, aber wenn Sie ihn löschen, wird die Anzahl NICHT verringert. (Als Ergebnis habe ich jetzt ein Dokument mit 32 Links - alle leer, bis auf 3, die ich selbst eingegeben habe - sie werden nicht im Dokument angezeigt.)

Am Ende des Codes sind meine Versuche, die Hyperlinks zu entfernen.

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