#1
|
|||
|
|||
Remove Hyperlink
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 |
#2
|
||||
|
||||
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.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
|||
|
|||
Quote:
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. |
#4
|
||||
|
||||
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.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#5
|
|||
|
|||
Sample File
Please PFA sample file for which i wanna remove hyperlink if any word starts with "@" or "#" sign
|
#6
|
||||
|
||||
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?
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#7
|
|||
|
|||
I want to retain the word but only needs to delete hyperlinks of all those words which starts from "@" or "#" sign. Thank you .
|
#8
|
||||
|
||||
Try the following macro:
Code:
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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#9
|
|||
|
|||
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
|
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Remove Red macro | netchie | Word VBA | 5 | 03-15-2013 04:22 PM |
Insert the Hyperlink and hide all sheets except clicking Hyperlink | PRADEEPB270 | Excel | 1 | 02-22-2013 09:47 AM |
How to remove "Table of Figures" as we do to remove the "Table of Contents"? | Jamal NUMAN | Word | 1 | 07-08-2011 05:40 PM |
How do I remove the gap in my header? | losty. | Word | 2 | 10-05-2010 01:21 AM |
How to remove the UNDERLINE from a hyperlink text? | Learner7 | PowerPoint | 3 | 05-17-2010 09:35 PM |