Word – Jak usunąć wszystkie hiperłącza

Czasami mamy dokument, w którym są hiperłącza. Aby usunąć hiperłącza najszybciej jest zaznaczyć tekst w którym owe hiperłącza występują, a następnie nacisnąć kombinację klawiszy Ctrl+Spacja. Niestety, ale ten skrót klawiszowy również usuwa formatowanie tekstu. Na szczęście możemy skorzystać z prostego makra, które przeskanuje cały dokument (lub tylko zaznaczony fragment) w poszukiwaniu hiperłączy i je usunie. Oto przykładowy kod.

Usunięcie hiperłączy w całym dokumencie

Sub UsunWszystkieHiperlacza()
    Dim selectedRange As Range
    Dim i As Long
    
    Set selectedRange = ActiveDocument.Content
    For i = selectedRange.Hyperlinks.Count To 1 Step -1
        selectedRange.Hyperlinks(i).Delete
    Next i
End Sub

Usunięcie hiperłączy w zaznaczonym tekście

Sub UsunHiperlaczWZaznaczeniu()
    Dim selectedRange As Range
    Dim i As Long
    
    Set selectedRange = Selection.Range
    For i = selectedRange.Hyperlinks.Count To 1 Step -1
        selectedRange.Hyperlinks(i).Delete
    Next i
End Sub

Oba fragmenty kodu różnią się jedynie jedną linijką, tą tuż przed pętlą for gdzie do zmiennej selectedRange przypisujemy obszar do „przeskanowania” (albo jest to cały dokument, albo zaznaczony tekst).

Zobacz również wpis: Excel – jak usunąć wszystkie hiperłącza z arkusza.