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.
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.
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.
Observe o resultado:
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.
Eis o 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