|
Discussion:
|
You can remove hyperlinks by deleting the style called Hyperlink, or by hitting Ctrl+A, then Shift+Ctrl+F9 (which will remove all underlying fields), but if you have alot of documents that contain hyperlinks, this code speeds up Word's native function. A quicker way to do it if there are lots of hyperlinks per document, or you're using it as part of another procedure. There is a code for just the current document, and a code taht will remove hyperlinks from "all" open documents.
|
Option Explicit
Sub KillTheHyperlinks()
' -----------------------------------------------
' Removes all hyperlinks from the document:
' Text to display is left intact
' -----------------------------------------------
With ThisDocument
' Loop while there are hyperlinks afoot!
While .Hyperlinks.Count > 0
.Hyperlinks(1).Delete
Wend
End With
' Shut this off, don't need anymore popping up
Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False
End Sub
Sub KillTheHyperlinksInAllOpenDocuments()
' -----------------------------------------------
' Removes all hyperlinks from any open documents
' Text to display is left intact
' -----------------------------------------------
Dim doc As Document
Dim szOpenDocName As String
' Loop through all open documents:
For Each doc In Application.Documents
' Store the document name
szOpenDocName = doc.Name
' Remove the hyperlinks from that document
With Documents(szOpenDocName)
' Loop while there are hyperlinks afoot!
While .Hyperlinks.Count > 0
.Hyperlinks(1).Delete
Wend
End With
' Shut this off, don't need anymore popping up
Application.Options.AutoFormatAsYouTypeReplaceHyperlinks = False
Next doc
End Sub
|