Sub DeleteAllLinks() For a = 1 To ThisDocument.Hyperlinks.Count ThisDocument.Hyperlinks(1).Delete Next End Sub