слово использовать VBA для создания гиперссылки из буфера обмена

Question

Я скопировал гиперссылку в буфер обмена.
В документе Word я выделил некоторый текст и хочу преобразовать текст в гиперссылку на данные в буфере обмена.

Я могу вручную Сделайте это, щелкнув правой кнопкой мыши по выделенному тексту, выбрав Ссылка-> и выбрав элемент из последних ссылок, или выбрав Ссылка-> затем Вставить ссылку и вставив буфер обмена в адрес.

Я хотел бы сделать это в макросе, который я могу назначить для клавиши в качестве ярлыка. Например, скопируйте ссылку в буфер обмена в другой программе, затем в Word нажмите одну клавишу, чтобы выделенный текст стал гиперссылкой на адрес в буфере обмена.

Answer 1

Спасибо CherryDT, вот окончательный VBA:

Sub AddHyperLink()
'
' AddHyperLink Macro
'
' 20-Apr-20
' Converts the selected test into a hyperlink
' The URL must be in the clipboard
'
'

    Dim MyData As DataObject
    Dim strAddr As String
    Dim strTitle As String

    Set MyData = New DataObject
    MyData.GetFromClipboard
    strAddr = MyData.GetText

    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Copy
    MyData.GetFromClipboard

    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:=strAddr _
        , SubAddress:="", ScreenTip:="", TextToDisplay:=Selection.Range
End Sub