Reply to thread

Message: [QUOTE="Jonathan West, post: 5888096"] In fact, if you have a large number of hyperlinks to delete, the following versions will be somewhat faster. You probably won't notice much difference unless there are hundreds or even thousands of hyperlinks in a document. Sub ConvertHyperlinksToText() Dim i As Long With ActiveDocument For i = 1 to .Hyperlinks.Count .Hyperlinks(1).Delete Next End With End Sub Sub DeleteHyperlinks() Dim i As Long With ActiveDocument For i = 1 to .Hyperlinks.Count .Hyperlinks(1).Range.Delete Next End With End Sub The code looks a bit odd - repeatedly deleting the first link - but it works because you are repeatedly deleting the first hyperlink in the document from among those that remain after the last deletion. The reason it is faster is that accessing the first member of a collection is almost always faster than accessing the last, and the speed advantage increases with the number of items in the collection. [/QUOTE]