Getting rid of hyperlinks

O

Oz Springs

I have received a document which is choc-a-block with linked email addresses
which make it hard for me to copy and paste. I don¹t need the links at all.

I have created a macro which goes from one field to the next to remove the
link, and the procedure is semi manual, but I am wondering if there is a
better way of doing this. Is there a way of telling all the links to go away
via a macro?

Thanks for any help




Oz
 
J

Jonathan West

Oz Springs said:
I have received a document which is choc-a-block with linked email
addresses
which make it hard for me to copy and paste. I don¹t need the links at
all.

I have created a macro which goes from one field to the next to remove the
link, and the procedure is semi manual, but I am wondering if there is a
better way of doing this. Is there a way of telling all the links to go
away
via a macro?

Hi Oz

Yup, there is.

Sub RemoveHyperlinks()
Dim n as Long
With ActiveDocument.Hyperlinks
For n = 1 to .Count
.Item(1).Delete
Next n
End With
End Sub

This will remove all hyperlinks and leave all other fields intact.
 
O

Oz Springs

Thank you very much. A reply in 7 minutes. I didn¹t even have enough time to
return to my laborious semi-manual hyperlink removal.

Kind regards



Oz
 
J

Jay Freedman

Oz said:
I have received a document which is choc-a-block with linked email
addresses which make it hard for me to copy and paste. I don¹t need
the links at all.

I have created a macro which goes from one field to the next to
remove the link, and the procedure is semi manual, but I am wondering
if there is a better way of doing this. Is there a way of telling all
the links to go away via a macro?

Thanks for any help

Oz

Hi Oz,

If the hyperlinks are the only fields in the document, or if you don't care
about the other fields, you can do it in the GUI with two keystrokes.

Ctrl+A -- Select all
Ctrl+Shift+F9 -- Unlink fields

This converts all fields to plain text of their displayed results.

If there are other fields that need to remain as fields, use this macro to
unlink only the hyperlinks:

Sub UnlinkHyperlinks()
Dim nHL As Long
For nHL = 1 To ActiveDocument.Hyperlinks.Count
ActiveDocument.Hyperlinks(1).Delete
Next nHL
End Sub

Two notes:
- The .Delete method in VBA does the same as Unlink in the GUI -- it will
leave the display text in place. To remove the entire thing, you need to do
..Hyperlinks(1).Range.Delete.
- As each hyperlink is deleted, the next one becomes .Hyperlinks(1). This
technique is needed because the Hyperlinks collection doesn't work properly
in a For Each loop in which the number of hyperlinks is being changed by
..Delete or .Add.
 
O

Oz Springs

Hi Jay
Thanks for this. I¹ll have to check that I haven¹t replaced Command+Shift+F9
with something else (or if this is a shortcut on a Mac). It will be handy to
know when to convert all fields - instantly.

I¹ll test out the other macro on my document. The one which Jonathan sent me
worked instantly, even quicker than removing one hyperlink with my old
method.

Truly amazed.


Oz
 
J

Jay Freedman

Hi Oz,

Jonathan's macro and mine work the same way. The difference is just in the
way we expressed the names of the hyperlinks in order to delete them.
 
T

telefunkinme

I have received a document which is choc-a-block with linked email addresses
which make it hard for me to copy and paste. I don¹t need the links at all.

I have created a macro which goes from one field to the next to remove the
link, and the procedure is semi manual, but I am wondering if there is a
better way of doing this. Is there a way of telling all the links to go away
via a macro?

Thanks for any help




Oz

CTL SHIFT F9 DOES THE TRICK - BEEN NEEDING THIS ONE FOR YEARS - THANKS SO MUCH!
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top