3 rýchle spôsoby odstránenia hypertextových odkazov z obrázkov v dokumente Word

V tomto článku by sme vám chceli predstaviť 3 rýchle spôsoby, ako odstrániť hypertextové odkazy z obrázkov vo vašom dokumente Word.

Niekedy pri online kopírovaní obrázka zistíme, že je vložený s hypertextovým odkazom. A v dokumente Word vás môže neúmyselné kliknutie na obrázok priviesť na čistú adresu obrázka. To je nielen dráždivé, ale narúša to aj vizuálny efekt dokumentu, napríklad nižšie:

Preto sme sa rozhodli odstrániť hypertextové odkazy z obrázkov, aby sme sa vyhli takémuto neočakávanému skoku stránky. Ideme na to.

Metóda 1: Odstránenie hypertextového odkazu z jedného obrázka

1. Najskôr kliknite pravým tlačidlom myši na obrázok.
2. Potom v kontextovej ponuke zvoľte možnosť „Odstrániť hypertextový odkaz“.

Metóda 2: Dávkové odstránenie hypertextových odkazov zo všetkých obrázkov v dokumente

Existuje spôsob, ako z dokumentu odstrániť všetky hypertextové odkazy. Najprv stlačte „Ctrl + A“ a vyberte celý obsah. Potom stlačte „Ctrl + Shift + F9“, aby ste zabili všetky hypertextové odkazy. Pre vašu informáciu, tento spôsob vymaže všetky hypertextové odkazy na obrázkoch aj textoch. Naším cieľom je odstrániť hypertextové odkazy iba z obrázkov. Na dokončenie úlohy teda budeme musieť použiť makro.

1. Najskôr stlačte „Alt + F11“, čím spustíte editor VBA v programe Word.
2. Potom v editore kliknite na projekt „Normálny“.
3. Ďalej na paneli s ponukami kliknite na „Vložiť“.
4. V rozbaľovacej ponuke zvoľte možnosť „Modul“.
5. Teraz dvakrát kliknite na modul, aby ste otvorili jeho oblasť kódovania vpravo a tam vložili nasledujúce makro:

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. V neposlednom rade spustite kódy kliknutím na tlačidlo „Spustiť“ na paneli s ponukami.

Metóda 3: Dávkové odstránenie hypertextových odkazov z obrázkov vo viacerých dokumentoch

1. Pred všetkým zariadiť všetko tarzískať dokumenty v jednom priečinku.
2. Potom zopakujte kroky v metóde 2, aby ste nainštalovali a spustili nasledujúce 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. V otvorenom okne „Prechádzať“ vyberte priečinok, ktorý ste nastavili v kroku 1, a pokračujte kliknutím na tlačidlo „OK“.

Buďte opatrní pri svojej práci v programe Word

Word nie je spoľahlivý, takže akákoľvek nesprávna operácia môže ľahko spustiť kolaps alebo ešte horšie výsledné poškodenie dokumentu. Aj keď môžete venovať viac pozornosti svojim operačným schopnostiam a návykom, môžete si tiež kúpiť nástroj pre obnova dokumentu vopred.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane zotaviť xls a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S