Remove Hyperlink

[RobDavis]

Hi Experts,



I want to remove Hyperlink from my word file but i want to remove hyperlink from only those WORDS which has start from "@" or "#"signs.

Your kind support is required in this regard. Thank you.


Regards \\ Rob

[macropod]

You cannot remove the hyperlink from part of a hyperlink - it's an all-or-nothing affair. Perhaps you could provide more detail. And can you attach a document to a post with some representative hyperlinks showing what you want to keep as hyperlinks and what you want to convert (delete anything sensitive)? You do this via the paperclip symbol on the 'Go Advanced' tab.

[RobDavis]

Originally Posted by macropod

You cannot remove the hyperlink from part of a hyperlink - it's an all-or-nothing affair. Perhaps you could provide more detail. And can you attach a document to a post with some representative hyperlinks showing what you want to keep as hyperlinks and what you want to convert (delete anything sensitive)? You do this via the paperclip symbol on the 'Go Advanced' tab.

Thank you for your reply. Actually It's Tweeter Tweet.

If we copy that to word then Twitter ID and #Hastag are also having Hyperlinks with webpage or pictures URL whereas i wanna save only Picture Urls therefore its making hurdel to me.

[macropod]

I don't use Twitter, so I don't really know what it is you're working with - hence the need for a document containing some sample hyperlinks.

[RobDavis]

Please PFA sample file for which i wanna remove hyperlink if any word starts with "@" or "#" sign

[macropod]

OK, the hyperlinks with the @ and # actually separate hyperlinks. You can see that if you press Alt-F9 to toggle the hyperlink field code display on/off. So you want to delete them entirely, or retain the words in a non-hyperlink format?

[RobDavis]

I want to retain the word but only needs to delete hyperlinks of all those words which starts from "@" or "#" sign. Thank you .

[macropod]

Try the following macro:

Sub Demo()
Dim i As Long, StrTxt As String, StrOut As String
With ActiveDocument
  For i = .Hyperlinks.Count To 1 Step -1
    With .Hyperlinks(i)
      StrTxt = .TextToDisplay
      If StrTxt Like "[#@]*" Then
        .Range.Fields(1).Unlink
      ElseIf InStr(StrTxt, "@") > 0 Then
        StrOut = Mid(StrTxt, InStr(StrTxt, "@") - 1, Len(StrTxt))
        .Range.InsertAfter StrOut
        .TextToDisplay = Left(StrTxt, InStr(StrTxt, "@") - 2)
      End If
    End With
  Next
End With
End Sub

Note: some/most of the @ symbols were actually within a hyperlink rather than being its start, so that added an extra level of complication to the code

[RobDavis]

Ya. I tried and it worked at my end same as required. Thank you so much. #Feeling very happy. you saved my too many hours. Thank youuuuuuuuuuuuuuuuuu