Use:
Code:
Dim oRng As Range
Dim newfield As Field
Dim hlink As Hyperlink
Set oRng = Selection.Range
Set newfield = ActiveDocument.Fields.Add(oRng, wdFieldEmpty, "HYPERLINK \l " & Chr(34) & "Link2Create" & Chr(34))
Set hlink = Selection.Paragraphs(1).Range.Hyperlinks(1)
hlink.TextToDisplay = "txt2cpy"