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
- Najskôr kliknite pravým tlačidlom myši na obrázok.
- 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.
- Najskôr stlačte „Alt + F11“, čím spustíte editor VBA v programe Word.
- Potom v editore kliknite na projekt „Normálny“.
- Ďalej na paneli s ponukami kliknite na „Vložiť“.
- V rozbaľovacej ponuke zvoľte možnosť „Modul“.
- 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 Ak Ak ActiveDocument.Shapes.Count> 1 Potom Pre každý objPicture V ActiveDocument.Shapes objPicture.Select While Selection.Hyperlinks.Count> 0 Selection.Hyperlinks (0). Odstrániť Wend Ďalej Koniec Ak Koniec Sub
- 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
- Pred všetkým zariadiť všetko tarzískať dokumenty v jednom priečinku.
- 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 (msoFileDialog) msoFileDialogFr = (1) & "\" Else MsgBox ("Nie je vybraný žiadny priečinok!") Ukončiť Podkoniec, ak Koniec s strFile = Dir (StrFolder & "* .doc *", vbNormal) Zatiaľ čo strFile <> "" Nastaviť objDoc = Dokumenty. Open (FileName: = StrFolder & strFile) Set objDoc = ActiveDocument If ActiveDocument.InlineShapes.Count> 1 Then For Every objInlinePicture In ActiveDocument.InlineShapes objInlinePicture. Vyberte While Selection.Hyperlinks.Count> 0 Selection.Hyperlinks (0). Odstrániť Wend Ďalej End If If ActiveDocument.Shapes.Count> 1 Then For each objPicture In ActiveDocument.Shapes objPicture.Select While Selection.Hyperlinks.Count> 0 Selection.Hyperlinks (0) .Delete Wend Next End If objDoc.ActiveWindow.ActivePane.View.See kView = wdSeekMainDocument objDoc.Save strFile = Dir () Wend End Sub
- 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