Well, that is what you said you wanted.
The following will paste a hyperlink, but carries other formatting with it.
Code:
Sub PasteHyperlink1()
'
' PasteHyperlink1 Macro
'
'
Selection.PasteAndFormat (wdFormatOriginalFormatting)
End Sub
' or
Code:
Sub PasteHyperlink2()
'
' PasteHyperlink2 Macro
'
'
Selection.PasteAndFormat (wdFormatSurroundingFormattingWithEmphasis)
End Sub