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