Views

Histats

Vitrine

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

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias