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






Formação Pacote Office



eBook Word 2010 VBA

Política de Privacidade  |   © 2013 Tutoriais Word - Todos os direitos reservados