#1
|
|||
|
|||
Remove the hyperlinks on paragraph marks
How can I remove the hyperlinks on paragraph marks, please?
What I have so far is this code... Code:
Selection.Find.ClearFormatting Selection.Find.Style = ActiveDocument.Styles("Hyperlink") Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^p" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Execute Replace:=wdReplaceAll End With Alex |
#2
|
|||
|
|||
Hyperlink is a character style so I don't really know why you would have applied it to the paragraph marks in the first place:
Code:
Sub ScratchMacro() 'A basic Word macro coded by Greg Maxey Dim oRng As Range Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Set oRng = ActiveDocument.Range With oRng.Find .Text = "^p" .Style = "Hyperlink" While .Execute oRng.Select Selection.ClearCharacterAllFormatting oRng.Collapse wdCollapseEnd Wend End With lbl_Exit: Exit Sub End Sub |
#3
|
|||
|
|||
Quote:
In regards to your script... i hope I'm not missing something, but it doesn't seem to work. It does match all the hyperlinked paragraphs, but the links are still there after processing. Alex |
#4
|
|||
|
|||
Sorry. I thought you were just trying to eliminate the hyperlink character style from the paragraph marks. To actually remove all hyperlinks contained in such paragraphs you could revise as:
Code:
Sub ScratchMacro() 'A basic Word macro coded by Greg Maxey Dim oRng As Range Dim lngHL As Long Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting Set oRng = ActiveDocument.Range With oRng.Find .Text = "^p" .Style = "Hyperlink" While .Execute oRng.Select Selection.ClearCharacterAllFormatting For lngHL = oRng.Paragraphs(1).Range.Hyperlinks.Count To 1 Step -1 oRng.Paragraphs(1).Range.Hyperlinks(lngHL).Delete Next lngHL oRng.Collapse wdCollapseEnd Wend End With lbl_Exit: Exit Sub End Sub |
#5
|
|||
|
|||
Wonderful piece of code, thank you very much!
Alex |
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Remove paragraph marks in Excel from Word-sourced text | Peterson | Excel | 6 | 08-18-2020 11:36 PM |
Help me, remove the marks occur at begin and last paragraph | ngocanhwdn | Word | 6 | 06-25-2019 07:57 AM |
Paragraph marks appear suddently | leonardevens | Word | 1 | 07-13-2015 12:14 PM |
Finding Paragraph Marks | BZee | Word | 4 | 02-14-2015 02:12 PM |
Hide paragraph format marks | Cara | Word | 2 | 04-07-2011 10:26 AM |