クリップボードにいくつかのハイパーリンク（VBA）を入れてください

Question

私はMS Project用にいくつかのマクロを書いています。私はいくつかのURL文字列と表示するテキストの文字列を持っています。

だから

wdDoc.Hyperlinks.Add Anchor:=Selection, Address:= _ 
    urlString, SubAddress:= _ 
    "", TextToDisplay:= _ 
    displayText 

、どのように私はクリップボードにこのリンクを置くことができます。 は、私のようなハイパーリンクを作成しましたか？これは追加MS WordのオブジェクトライブラリでMSプロジェクトで動作します

Answer 1

Dim hLink As Object 
Dim wd As Object 
Dim appWd As Word.Application 
Dim strUrl, strName 

Set strUrl = "mysite.com" 
Set strName = "My hypelink to mysite.com" 

'Create temp Word doc 

Set appWd = CreateObject("Word.Application") 
Set wdDoc = appWd.Documents.Add 

Set hLink = wdDoc.Hyperlinks.Add(Anchor:=wdDoc.Range, _ 
    Address:=strUrl, _ 
    SubAddress:="", _ 
    ScreenTip:="", _ 
    TextToDisplay:=strName) 

'text format 
hLink.Range.Font.Name = "Segoe UI" 
hLink.Range.Font.Size = 10 
hLink.Range.Font.Color = RGB(0, 0, 255) 

hLink.Range.Copy 

Answer 2

Sub Tester() 

    Dim wdDoc, h, urlString, displayText 

    Set wdDoc = ActiveDocument 

    urlString = "http://google.com" 
    displayText = "google" 

    Set h = wdDoc.Hyperlinks.Add(Anchor:=Selection.Range, _ 
        Address:=urlString, SubAddress:="", _ 
        TextToDisplay:=displayText) 

    h.Range.Copy 

End Sub