Métodos para Eliminar Hipervínculos Imágenes Word
Métodos para Eliminar Hipervínculos Imágenes Word

3 Formas Rápidas de Eliminar los Hipervínculos de las Imágenes en Word

A veces, al copiar una imagen en línea, la encontramos incrustada con un hipervínculo. Y en un documento de Word, hacer clic accidentalmente en la imagen puede llevarle a la dirección de red de la imagen. Esto no sólo es irritante, sino que estropea el efecto visual de tu documento, como el que se muestra a continuación:

Imagen con Hipervínculo en documento Word
Imagen con Hipervínculo en documento Word

Por lo tanto, optamos por eliminar los hipervínculos de las imágenes para evitar ese salto de página inesperado. Aquí lo tenemos.

Método 1: Eliminar el Hipervínculo de una Imagen

En primer lugar, haz clic con el botón derecho del mouse en una imagen.

A continuaci√≥n, en el men√ļ contextual, elige ‚ÄúQuitar hiperv√≠nculo‚Äú.

Eliminar Hipervínculo de Imagen en Word
Eliminar Hipervínculo de Imagen en Word

Método 2: Eliminar por Lotes los Hipervínculos de Todas las Imágenes de un Documento

Existe la forma de eliminar todos los hiperv√≠nculos de un documento. Primero presiona ‚ÄúCtrl+ E‚ÄĚ para seleccionar todo el contenido. Luego presiona ‚ÄúCtrl+ Shift+ F9‚ÄĚ para eliminar todos los hiperv√≠nculos. Para tu informaci√≥n, esta forma borra todos los hiperv√≠nculos tanto en las im√°genes como en los textos. Sin embargo, nuestro objetivo es eliminar los hiperv√≠nculos de las im√°genes solamente. As√≠ que tendremos que utilizar una macro para terminar el trabajo.

  • En primer lugar, pulse ‚ÄúAlt+ F11‚ÄĚ para activar el editor VBA de Word.
  • A continuaci√≥n, en el editor, haz clic en el proyecto ‚ÄúNormal‚Äú.
  • A continuaci√≥n, en la barra de men√ļ, haz clic en ‚ÄúInsertar‚Äú.
  • Y elige ‚ÄúM√≥dulo‚ÄĚ en el men√ļ desplegable.
Insertar módulo macro en Word
Insertar módulo macro en Word

Ahora haz doble clic en el módulo para abrir su área de codificación a la derecha y pega allí la siguiente macro:

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

Por √ļltimo, pero no menos importante, haz clic en ‚ÄúEjecutar‚ÄĚ en la barra de men√ļ para ejecutar los c√≥digos.

Ejecutar macro para eliminar hipervínculos de imágenes
Ejecutar macro para eliminar hipervínculos de imágenes

Método 3: Eliminar por Lotes los Hipervínculos de las Imágenes en Varios Documentos

Antes que nada, organiza todos los documentos de destino en una carpeta.

A continuación, repite los pasos del método 2 para instalar y ejecutar la siguiente macro:

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

En la ventana ‚ÄúExaminar‚ÄĚ que se abre (despu√©s de ejecutar el c√≥digo), elige la carpeta que estableciste en el paso 1 y haz clic en ‚ÄúAceptar‚ÄĚ para continuar.

Eliminar hipervínculos de imágenes en varios documentos
Eliminar hipervínculos de imágenes en varios documentos

Ten cuidado con tus operaciones en Word

Word no es infalible, por lo que cualquier operaci√≥n incorrecta puede provocar f√°cilmente el colapso o, peor a√ļn, la corrupci√≥n del documento resultante. Es recomendable realizar las modificaciones en una copia del mismo documento.

¬ŅHay alguna otra actividad en la que podr√≠amos ayudarte a mejorar tu productividad?