3 raske måter å fjerne hyperkoblinger fra bilder i Word-dokumentet ditt

I denne artikkelen vil vi vise deg 3 raske måter å fjerne hyperkoblinger fra bilder i Word-dokumentet.

Noen ganger, når vi kopierer et bilde på nettet, finner vi det innebygd med en hyperkobling. Og i et Word-dokument kan et uhell klikke på bildet føre deg til nettadressen til bildet. Dette er ikke bare irriterende, men ødelegger også den visuelle effekten av dokumentet ditt, for eksempel nedenfor:

Derfor velger vi å fjerne hyperkoblinger fra bilder for å unngå slike uventede sidehopp. Her går vi.

Metode 1: Fjern hyperkobling fra ett bilde

1. Først, høyreklikk på et bilde.
2. Velg deretter "Fjern hyperkobling" på kontekstmenyen.

Metode 2: Batchfjern hyperkoblinger fra alle bilder i et dokument

Det er en måte å fjerne alle hyperkoblinger fra et dokument. Først trykker du "Ctrl + A" for å velge alt innhold. Deretter trykker du "Ctrl + Shift + F9" for å drepe alle hyperkoblinger. Til din informasjon sletter denne måten alle hyperkoblinger både på bilder og tekster. Likevel er målet vårt å fjerne hyperkoblinger kun fra bilder. Så vi må bruke en makro for å fullføre jobben.

1. Først av alt, trykk "Alt + F11" for å utløse VBA-editoren i Word.
2. Klikk deretter på "Normal" prosjekt i redigeringsprogrammet.
3. Klikk deretter på "Sett inn" på menylinjen.
4. Og velg "Modul" på rullegardinmenyen.
5. Dobbeltklikk nå på modulen for å åpne kodeområdet til høyre og lim inn følgende makro der:

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. Sist men ikke minst, klikk "Kjør" på menylinjen for å utføre koder.

Metode 3: Batchfjern hyperkoblinger fra bilder i flere dokumenter

1. Før alt, ordne alt tarfå dokumenter i én mappe.
2. Gjenta deretter trinnene i metode 2 for å installere og kjøre følgende makro:

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. I "Bla gjennom"-vinduet som er åpent, velg mappen du anga i trinn 1 og klikk "OK" for å gå videre.

Vær forsiktig med operasjonen din i Word

Word er ikke idiotsikkert, så enhver feil operasjon kan lett utløse kollapsen eller enda verre, resulterende dokumentkorrupsjon. Mens du kan være mer oppmerksom på dine operasjonsferdigheter og -vaner, kan du også kjøpe et verktøy for doc gjenoppretting på forhånd.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert gjenopprette xls og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med