Delete hyperlinks and text VBA

Sub RemoveLinks()

While ThisDocument.Hyperlinks.Count > 0

ThisDocument.Hyperlinks(1).Delete

Wend

End Sub



Navedeni VBA samo vrsi brisanje Hyperlinks-a, a kako da se izbrise text u kojem je sadrzan hyperlinks (zajedno sa njim) pomocu VBA, te da sadrzi batch, odnosno putanju do foldera koji sadrzi word dokumenta iz kojih je potrebno izbrisati hyperlinks?



Primer:
Text 1 (koji ima hyperlinks)

Rezultat:




U folderu "primer"
ima 1.doc, 2.doc etc.

napraviti putanju da se bira folder i da vrsi brisanje