View Single Post
 
Old 07-14-2016, 07:16 PM
DougMVP DougMVP is offline Windows 7 32bit Office 2010 32bit
Advanced Beginner
 
Join Date: Nov 2013
Posts: 50
DougMVP will become famous soon enough
Default

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"
Reply With Quote