Remove Hyperlink

[Guest]

I have more than 100 hyperlinks in a single word document. How can i remove
all the hyperlinks in one go, obviously the removing hyperlinks one by one
will take lot of time.


Thanks in advance

 

[Graham Mayor]

You could toggle the display withy ALT+F9 and use replace to remove ^d
HYPERLINK, but is that what you really want to do? I suspect the following
might be nearer the mark:

Sub UnlinkSomeFields()
Dim iFld As Integer
For iFld = ActiveDocument.Fields.Count To 1 Step -1
With ActiveDocument.Fields(iFld)
If .Type = wdFieldHyperlink Then
.Unlink
End If
End With
Next iFld
End Sub


--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Guest]

Thanks Graham for your effort, but to be honest it is really very difficult
for a novice like me to understand the second option, can you please
elaborate on what exactly i have to do.
To me it appears like a software program.

 

[Graham Mayor]

It's a macro - http://www.gmayor.com/installing_macro.htm will explain what
to do with the listing.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Guest]

Thanks a lot. It did for me

It's a macro - http://www.gmayor.com/installing_macro.htm will explain what
to do with the listing.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[rmilnes]

Thanks from me, too, Graham. Perhaps you could use your VIP status to get MS
to include this function in their next release of Word.