Hyperlink Macro in word 2013

See the "This is how to get the text on the clipboard into a string variable" part of the article "Manipulating the clipboard using VBA” at:

http://www.word.mvps.org/FAQs/MacrosVBA/ManipulateClipboard.htm

What you would then do is use that code in your macro to get the URL from the clipboard into a string variable and then replace the http://www.greenoptimistic in your recorded macro with the string variable.

Thank you very much for your reply, but I'm afraid it's too technical for me. :/ My expertise lies in other fields.

I guess I'll just stick with Ctrl+K, Ctrl+V, ↵ for now. It's only three keystrokes :)

I was trying to do something very similar but with an extra step. Office programs convert URLs into hyperlinks very easily, like with a space after the address. But they don't do this if the address is to a file path. I send file paths to colleagues frequently, so I wanted to make it easy to convert the text of a file path into a hyperlink to the file or folder. So my three steps using keyboard shortcuts are Ctrl + C, Ctrl + K, Ctrl +V, Enter. At first, I tried to achieve this by following the method recommended by Doug Robbins on this thread but adding Selection.Copy to the beginning. But I couldn't figure out how to get the coding to work for the Address field in the hyperlink code.

Fortunately for me, there's a simpler way to do this. Just use "Selection.Range" wherever you want to use it.

Here's what that looks like:

ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:=Selection.Range, SubAddress:="", ScreenTip:="", TextToDisplay:=Selection.Range

This turns the highlighted text into a hyperlink with an address identical to the highlighted text.

Still, I'd like to see what the code Doug Robbins suggests would actually look like. I tried this, which didn't work:

ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:=Dim MyData As DataObject
Dim strClip As String
Set MyData = New DataObject
MyData.GetFromClipboard
strClip = MyData.GetText, SubAddress:="", ScreenTip:="", TextToDisplay:="test"

This always came up with a "bad parameter" error. I'm not very advanced at this but understand the basics. I'm not sure how to make that clipboard coding work in the Address: or TextToDisplay: fields and would appreciate someone actually posting what they hyperlink language would look like to dump whatever's in the clipboard into the address, no matter what is selected.

Use:

Dim MyData As DataObject
Dim strClip As String
Set MyData = New DataObject
MyData.GetFromClipboard
strClip = MyData.GetText

ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:=strClip, SubAddress:="", ScreenTip:="", TextToDisplay:="test"