Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

Histats

Vitrine

+Views

Widgets Mundo Blogger

VBA Word - Retire todos hyperlinks mantendo o texto no .DOC


Termo de Responsabilidade












Não raro recebemos e/ou baixamos documentos do MS Word repleto de links que somente nos irritam tamanho número de links no seu interior.


Abaixo segue a solução para retirá-los, preservando o texto.


Sub EjectLinks()Dim nRange As Range

For Each nRange In ActiveDocument.StoryRanges
Do While nRange.Hyperlinks.Count & nRange.Hyperlinks(1).Delete
Loop
Next nRange
End Sub



Tags: VBA, Word, hyperlinks

Inline image 1

Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias