[mso] Re: Deleting Hyperlinks

  • From: "Dian D. Chapman" <dian@xxxxxxxxxxxxx>
  • To: <mso@xxxxxxxxxxxxx>
  • Date: Mon, 5 Feb 2007 11:00:25 -0600

You can do this through the use of VBA automation. 

But do you want to remove just the link itself...leaving the text? Or do you
want the entire link AND resulting text removed, too?

If you want the links only...leaving the text, you can use this macro...

Sub RemoveHyperlinks()
    Dim objDoc As Document
    Dim objStory As Range
    Dim objHlink As Hyperlink

    For Each objStory In ActiveDocument.StoryRanges
        For Each objHlink In objStory.Hyperlinks
            objHlink.Delete
        Next
    Next
End Sub

If you want the link AND the text removed...this one should do the trick...

Sub RemoveAllHyperlinks()
    Dim objDoc As Document
    Dim objStory As Range
    Dim objHlink As Hyperlink

    For Each objStory In ActiveDocument.StoryRanges
        For Each objHlink In objStory.Hyperlinks
            objHlink.Range.Delete
        Next
    Next
End Sub

If you don't know how to use these to make them work...read this article for
details about how to insert and run them...

Sharing Macros
http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=166 


Dian D. Chapman
Technical Consultant, Microsoft MVP
MOS Certified, Editor/TechTrax

Free MS Tutorials: http://www.mousetrax.com/techtrax
Free Word eBook: http://www.mousetrax.com/books.html 
Optimize your business docs: http://www.mousetrax.com/consulting
Learn VBA the easy way: http://www.mousetrax.com/techcourses.html 


-----Original Message-----
From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx] On Behalf
Of Aerial Photography Directory
Sent: Sunday, February 04, 2007 4:25 PM
To: mso@xxxxxxxxxxxxx
Subject: [mso] Deleting Hyperlinks

Thanks to the list I know how to delete one hyper link at a time.
I would like to know how to do a whole page full?

Thanks,

Marty



*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, visit the group's homepage and use the
dropdown menu at the top.  This will allow you to unsubscribe your email
address or change your email settings to digest or vacation (no mail).
//www.freelists.org/webpage/mso

If you are using Outlook and you see a lot of unnecessary code in your email
messages, read these instructions that explain why and how to fix it:
http://personal-computer-tutor.com/abc3/v28/greg28.htm
*************************************************************


*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or 
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, visit the group's homepage and use the dropdown 
menu at the top.  This will allow you to unsubscribe your email address or 
change your email settings to digest or vacation (no mail).
//www.freelists.org/webpage/mso

If you are using Outlook and you see a lot of unnecessary code in your email 
messages, read these instructions that explain why and how to fix it:
http://personal-computer-tutor.com/abc3/v28/greg28.htm
*************************************************************

Other related posts: