Как скопировать гиперссылку из Excel в Word? - VBA

Формулировка задачи:

В документе Excel беру ссылку:

                    Листинг программы
                
Dim lnk As String
lnk = Selection.Hyperlinks(1).Address

Затем вставляю в документ Word

                    Листинг программы
                
With oWord.Selection
.TypeText lnk
End With

Получаю обычный текст, а хочу гиперссылку, чтоб можно было кликнуть. Пример типа

                    Листинг программы
                
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
        "https://en.wikipedia.org/wiki/Number_One", SubAddress:="", ScreenTip:="" _
        , TextToDisplay:="https://en.wikipedia.org/wiki/Number_One"

не работает, поскольку нету Selection.Range. Как можно при вставке выделить вставляемый текст или решить это по другому? Спасибо.

Решение задачи: «Как скопировать гиперссылку из Excel в Word?»

textual
                            Листинг программы 
                        
oWord.ActiveDocument.Hyperlinks.Add Anchor:=oWord.Selection.Range, Address:=lnk, TextToDisplay:=lnk