[Shrid]

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
Word MVP web site http://word.mvps.org


Shrid wrote:
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

[Shrid]

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" wrote:

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
Word MVP web site http://word.mvps.org


Shrid wrote:
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]

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
Word MVP web site http://word.mvps.org


Shrid wrote:
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" wrote:

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
Word MVP web site http://word.mvps.org


Shrid wrote:
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

[Shrid]

Thanks a lot. It did for me

"Graham Mayor" wrote:

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
Word MVP web site http://word.mvps.org


Shrid wrote:
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" wrote:

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
Word MVP web site http://word.mvps.org


Shrid wrote:
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

[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.

"Graham Mayor" wrote:

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
Word MVP web site http://word.mvps.org


Shrid wrote:
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