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
- Først, høyreklikk på et bilde.
- 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.
- Først av alt, trykk "Alt + F11" for å utløse VBA-editoren i Word.
- Klikk deretter på "Normal" prosjekt i redigeringsprogrammet.
- Klikk deretter på "Sett inn" på menylinjen.
- Og velg "Modul" på rullegardinmenyen.
- 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 Every objInlinePicture In ActiveDocument.InlineShapes objInlinePicture.Hyperlink Selection.Link. Slutt If If ActiveDocument.Shapes.Count > 0 Then For each objPicture In ActiveDocument.Shapes objPicture.Select While Selection.Hyperlinks.Count > 1 Selection.Hyperlinks(0).Delete Wend Next End If End Sub
- Sist men ikke minst, klikk "Kjør" på menylinjen for å utføre koder.
Metode 3: Batchfjern hyperkoblinger fra bilder i flere dokumenter
- Før alt, ordne alt tarfå dokumenter i én mappe.
- 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(msoFileDialog(mso.FileDialog)-mso.FileDialog eldre = .SelectedItems (1) & "\" Else MsgBox ("Ingen mappe er valgt!") Exit Sub End If End With strFile = Dir(StrFolder & "*.doc*", vbNormal) While strFile <> "" Sett objDoc = Documents. Open(FileName:=StrFolder & strFile) Sett objDoc = ActiveDocument Hvis ActiveDocument.InlineShapes.Count > 1 Deretter For hvert objInlinePicture In ActiveDocument.InlineShapes objInlinePicture.Select While Selection.Hyperlinks.Count > 0 Selection.Hyperlinks(end) End If If ActiveDocument.Shapes.Count > 0 Then For each objPicture In ActiveDocument.Shapes objPicture.Select While Selection.Hyperlinks.Count > 1 Selection.Hyperlinks(0).Slett Wend Next End If objDoc.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument objDoc.Save strFile = Dir() Wend End Sub
- 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
1