3 швидкі способи видалення гіперпосилань із зображень у вашому документі Word

У цій статті ми хотіли б представити вам 3 швидкі способи видалення гіперпосилань із зображень у вашому документі Word.

Іноді, копіюючи зображення в Інтернеті, ми виявляємо, що воно вбудоване за допомогою гіперпосилання. А в документі Word випадковий клацання на малюнку може призвести до чистої адреси зображення. Це не тільки дратує, але і псує візуальний ефект вашого документа, як показано нижче:

Тому ми вирішили видалити гіперпосилання із зображень, щоб уникнути такого несподіваного стрибка сторінки. Ось і ми.

Спосіб 1. Видаліть гіперпосилання з одного зображення

1. По-перше, клацніть правою кнопкою миші на картинці.
2. Потім у контекстному меню виберіть “Видалити гіперпосилання”.

Спосіб 2: Пакетне видалення гіперпосилань із усіх зображень у документі

Існує спосіб видалити всі гіперпосилання з документа. Спочатку ви натискаєте “Ctrl + A”, щоб вибрати весь вміст. Потім ти натискаєш “Ctrl + Shift + F9”, щоб убити всі гіперпосилання. Для вашої інформації цей спосіб очищає всі гіперпосилання як на зображення, так і на тексти. Проте наша мета - видалити гіперпосилання лише із зображень. Тож нам доведеться використовувати макрос, щоб закінчити роботу.

1. Перш за все, натисніть “Alt + F11”, щоб запустити редактор VBA у програмі Word.
2. Потім у редакторі натисніть на проект «Звичайний».
3. Далі в рядку меню натисніть “Вставити”.
4. І виберіть «Модуль» у спадному меню.
5. Тепер двічі клацніть на модулі, щоб відкрити область кодування праворуч, і вставте туди наступний макрос:

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. І останнє, але не менш важливе, натисніть «Виконати» на рядку меню для виконання кодів.

Спосіб 3: Пакетне видалення гіперпосилань із зображень у кількох документах

1. Перш за все, влаштуйте всіх tarотримати документи в одній папці.
2. Потім повторіть кроки у способі 2, щоб встановити та запустити такий макрос:

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. У відкритому вікні "Огляд" виберіть папку, встановлену на кроці 1, і натисніть "OK", щоб рухатися далі.

Будьте обережні щодо своєї роботи в Word

Word не є надійним, тому будь-яка неправильна операція може легко спричинити згортання або ще гірше, що спричинить пошкодження документа. Хоча ви можете приділяти більше уваги своїм експлуатаційним навичкам та звичкам, ви також можете придбати утиліту для відновлення документа заздалегідь.

Вступ автора:

Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновити XLS та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com