Do Básico ao Avançado
Home | Tutoriais | Artigos |Contato

Como remover hiperlinks no Word 2007



Saber Como remover hiperlinks é extremamente útil quando você copia e cola no Word um texto ou artigo de uma página web, é bem provável que no texto tenha muitos links de hipertexto.


Neste tutorial mostrarei duas formas de remover os hiperlinks de um documento Word.


1ª Forma: Remover um Hiperlink de cada vez.


Localize o Hiperlink (sublinhado, em azul). Clique nele com o botão direito do mouse, e em seguida clique também em Remover Hiperlink.


Remover Hiperlink


2ª Forma: Remover todos os Hiperlinks de uma vez.


Clique na Guia Início e no Grupo Edição clique em Selecionar Tudo. (ou simplesmente CTRL+T) Depois, aperte, ao mesmo tempo, em CTRL + SHIT + F9 . Todos os Hiperlinks serão removidos.


Selecionar tudo


Para tirar o sublinhado do texto selecione todo texto novamente usando as teclas de atalho CTRL + T e clique duas vezes na ferramenta Sublinhado ou através das teclas de atalho CTRL + S.


Sublinhado


Observe o resultado:


Texto sem sublinhado


Se quiser alterar a cor da fonte para que o texto fique somente numa cor. Selecione todo texto novamente (CTRL + T) e clique na ferramenta Cor da Fonte e selecione a cor desejada.


Cor da fonte

Eis o resultado:


Resultado

Consideração Final: Existe ainda uma outra forma de remover hiperlinks no word que é através de macro. Para áqueles já tem alguma experiência com VBA é só acessar o Editor do Visual Basic e inserir um novo Módulo e adicionar o código abaixo:


Sub RemveHiperlinks()
'Declara as variáveis
Dim lnk As Hyperlink
Dim n As Integer, s As Integer
Dim sDoc As Document
Set sDoc = ActiveDocument
'verifica se o documento contém hiperlinks
s = sDoc.Hyperlinks.Count
'Se não houver Hiperlinks exibe uma mensagem ao usuário
If s = 0 Then
MsgBox "Não existem hyperlinks neste documento.", vbCritical, "Remover Hyperlinks"
GoTo fim
End If
'Se houver Hiperlinks executa o loop para removê-los
Do While sDoc.Hyperlinks.Count > 0
For Each lnk In sDoc.Hyperlinks
n = n + 1
lnk.Delete 'Remove os Hiperlinks
Next
Loop
MsgBox "Foram removidos " & n & " de " & s & " hiperlinks", vbInformation, "Remover Hyperlinks"
fim:
Set sDoc = Nothing 'Libera a memória
End Sub



Veja também...


Como Criar Hiperlink no Word 2007

Como Alterar a Cor de Hiperlinks no Word 2007









Conteúdo Correspondente:




eBook Word 2010 VBA

© 2013 Tutoriais Word - Todos os direitos reservados