Results 1 to 4 of 4
  1. #1
    3 Star Lounger
    Join Date
    Jan 2001
    Location
    Sydney, Australia, New South Wales, Australia
    Posts
    251
    Thanks
    0
    Thanked 4 Times in 4 Posts

    Removing Hyperlinks

    I have a long Word document (250 pages) with many hyperlinks (mainly created from pastes from HTML pages). How do I remove ALL hyperlinks from a document. Or, how can I search the document for the next Hyperlink?
    Thanks for your help.
    Peter

  2. #2
    5 Star Lounger
    Join Date
    Dec 2000
    Location
    Tallahassee, Florida, USA
    Posts
    901
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Removing Hyperlinks

    Hi, Peter...
    Best way... Key Alt+F9, which shows the field code text, instead of the code results. Then you can search (Edit/Search, or Ctrl+F9) for '^dhyper' (without the quotes) repeatedly. As you reach each one, click in the document and you can convert the field result into hard text by pressing Ctrl+Shift+F9.

    Personally, I'd record a simple macro to do the job so I just have to keep clicking a button until it's through...

    One of the VBA'ers around here I'm certain can give you a real quick coding for it.

    Have a blast!
    Karen

  3. #3
    3 Star Lounger
    Join Date
    Jan 2001
    Location
    Sydney, Australia, New South Wales, Australia
    Posts
    251
    Thanks
    0
    Thanked 4 Times in 4 Posts

    Re: Removing Hyperlinks

    Thanks Karen. It worked a treat, although the replace text has to be '^d hyper' (note the space). I never knew ^d for searching fields. Now if Word just had regular expressions, I could do a replace without having to create a macro...

  4. #4
    Super Moderator
    Join Date
    Dec 2000
    Location
    New York, NY
    Posts
    2,970
    Thanks
    3
    Thanked 28 Times in 27 Posts

    Re: Removing Hyperlinks

    If you break down and decide to use a macro, this should do it for you:

    <pre>Sub DeleteHLinks()
    Dim n As Long
    Dim lngHypCt As Long
    Dim objDocHyps As Hyperlinks
    Set objDocHyps = ActiveDocument.Hyperlinks

    lngHypCt = objDocHyps.Count
    For n = lngHypCt To 1 Step -1
    objDocHyps(n).Delete
    Next n
    End Sub
    </pre>

    Saves all that clicking!

    Gary

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •