3 modi rapidi per rimuovere i collegamenti ipertestuali dalle immagini nel documento di Word

In questo articolo, vorremmo mostrarti 3 modi rapidi per rimuovere i collegamenti ipertestuali dalle immagini nel tuo documento Word.

A volte, quando copiamo un'immagine online, la troviamo incorporata con un collegamento ipertestuale. E in un documento di Word, fare clic accidentalmente sull'immagine potrebbe portarti all'indirizzo di rete dell'immagine. Questo non è solo irritante, ma rovina l'effetto visivo del tuo documento, come di seguito:

Pertanto, scegliamo di rimuovere i collegamenti ipertestuali dalle immagini per evitare un salto di pagina così imprevisto. Eccoci qui.

Metodo 1: rimuovere il collegamento ipertestuale da un'immagine

1. Innanzitutto, fai clic con il pulsante destro del mouse su un'immagine.
2. Quindi, nel menu contestuale, scegli "Rimuovi collegamento ipertestuale".

Metodo 2: rimozione in batch dei collegamenti ipertestuali da tutte le immagini in un documento

C'è il modo per rimuovere tutti i collegamenti ipertestuali da un documento. Per prima cosa premi "Ctrl + A" per selezionare tutti i contenuti. Quindi premi "Ctrl + Maiusc + F9" per eliminare tutti i collegamenti ipertestuali. Per tua informazione, in questo modo cancella tutti i collegamenti ipertestuali sia su immagini che su testi. Tuttavia, il nostro obiettivo è rimuovere i collegamenti ipertestuali solo dalle immagini. Quindi dovremo utilizzare una macro per completare il lavoro.

1. Prima di tutto, premi "Alt + F11" per attivare l'editor VBA in Word.
2. Quindi nell'editor, fai clic sul progetto "Normale".
3. Avanti sulla barra dei menu, fare clic su "Inserisci".
4. E scegli "Modulo" nel menu a discesa.
5. Ora fai doppio clic sul modulo per aprire la sua area di codifica sulla destra e incolla lì la seguente macro:

Sub RemoveAllHyperlinksFromPicturesInOneDocument()
  Dim objInlinePicture As InlineShape
  Dim objPicture As Shape
 
  If ActiveDocument.InlineShapes.Count > 0 Then 
    For Each objInlinePicture In ActiveDocument.InlineShapes
      objInlinePicture.Select
 
      While Selection.Hyperlinks.Count > 0
        Selection.Hyperlinks(1).Delete
      Wend 
    Next
  End If

  If ActiveDocument.Shapes.Count > 0 Then 
    For Each objPicture In ActiveDocument.Shapes 
      objPicture.Select
 
      While Selection.Hyperlinks.Count > 0
        Selection.Hyperlinks(1).Delete
      Wend 
    Next 
  End If
End Sub

6. Ultimo ma non meno importante, fai clic su "Esegui" sulla barra dei menu per eseguire i codici.

Metodo 3: rimozione in batch di collegamenti ipertestuali da immagini in più documenti

1. Prima di tutto, organizza tutto tarottenere documenti in una cartella.
2. Quindi ripetere i passaggi nel metodo 2 per installare ed eseguire la seguente macro:

Sub RemoveAllHyperlinksFromPicturesInMultipleDocuments()
  Dim objInlinePicture As InlineShape
  Dim objPicture As Shape
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog

  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox ("No Folder is selected!")
      Exit Sub
    End If
  End With
 
  strFile = Dir(StrFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
    Set objDoc = ActiveDocument
 
    If ActiveDocument.InlineShapes.Count > 0 Then
      For Each objInlinePicture In ActiveDocument.InlineShapes
        objInlinePicture.Select 
        While Selection.Hyperlinks.Count > 0
          Selection.Hyperlinks(1).Delete
        Wend
      Next
    End If

    If ActiveDocument.Shapes.Count > 0 Then
      For Each objPicture In ActiveDocument.Shapes
        objPicture.Select 
        While Selection.Hyperlinks.Count > 0
          Selection.Hyperlinks(1).Delete
        Wend
      Next
    End If

    objDoc.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    objDoc.Save
    strFile = Dir()
  Wend
End Sub

3. Nella finestra "Sfoglia" aperta, seleziona la cartella impostata nel passaggio 1 e fai clic su "OK" per andare avanti.

Sii cauto riguardo alla tua operazione in Word

Word non è infallibile, quindi qualsiasi operazione errata può facilmente innescare il collasso o, peggio, la corruzione del documento. Sebbene tu possa prestare maggiore attenzione alle tue capacità e abitudini operative, puoi anche acquistare un'utilità per recupero documenti in anticipo.

Introduzione dell'autore:

Vera Chen è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui recuperare xls e pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com