3 maneiras rápidas de remover hiperlinks de imagens em seu documento do Word

Neste artigo, gostaríamos de mostrar a você 3 maneiras rápidas de remover hiperlinks de imagens em seu documento do Word.

Às vezes, quando copiamos uma imagem on-line, encontramos um hiperlink incorporado a ela. E em um documento do Word, clicar acidentalmente na imagem pode levá-lo ao endereço de rede da imagem. Isso não é apenas irritante, mas também atrapalha o efeito visual do seu documento, como abaixo:

Portanto, optamos por remover os hiperlinks das imagens para evitar esse salto de página inesperado. Aqui vamos nós.

Método 1: Remover hiperlink de uma imagem

1. Em primeiro lugar, clique com o botão direito do mouse em uma imagem.
2. Em seguida, no menu contextual, escolha “Remover hiperlink”.

Método 2: Remover hiperlinks em lote de todas as imagens em um documento

Existe uma maneira de remover todos os hiperlinks de um documento. Primeiro você pressiona “Ctrl + A” para selecionar todo o conteúdo. Em seguida, pressione “Ctrl + Shift + F9” para eliminar todos os hiperlinks. Para sua informação, desta forma limpa todos os hiperlinks em imagens e textos. No entanto, nosso objetivo é remover hiperlinks apenas de imagens. Portanto, teremos que utilizar uma macro para concluir o trabalho.

1. Em primeiro lugar, pressione “Alt+F11” para acionar o editor VBA no Word.
2. Em seguida, no editor, clique no projeto “Normal”.
3. Em seguida, na barra de menu, clique em "Inserir".
4. E escolha “Módulo” no menu suspenso.
5. Agora clique duas vezes no módulo para abrir sua área de codificação à direita e cole a seguinte macro lá:

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. Por último, mas não menos importante, clique em “Executar” na barra de menu para executar os códigos.

Método 3: Remover hiperlinks em lote de imagens em vários documentos

1. Antes de tudo, organize tudo tarobter documentos em uma pasta.
2. Em seguida, repita as etapas do método 2 para instalar e executar a seguinte 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 Então StrFolder = .SelectedItems (1) & "\" Else MsgBox ("Nenhuma pasta foi selecionada!") Exit Sub End If End With strFile = Dir(StrFolder & "*.doc*", vbNormal) While strFile <> "" Set objDoc = Documents. Open(FileName:=StrFolder & strFile) Definir objDoc = ActiveDocument Se ActiveDocument.InlineShapes.Count > 0 Então para cada objInlinePicture em 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. Na janela “Browse” aberta, escolha a pasta que você definiu na etapa 1 e clique em “OK” para prosseguir.

Seja cauteloso sobre sua operação no Word

O Word não é infalível, então qualquer operação errada pode facilmente desencadear o colapso ou pior, resultando em corrupção do documento. Embora você possa prestar mais atenção às suas habilidades e hábitos de operação, também pode adquirir um utilitário para recuperação de documentos antecipadamente.

Introdução do autor:

Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo recuperar xls e a pdf reparar produtos de software. Para mais informações visite www.datanumen.com