ایجاد ماکرو در ورد

من یک ماکرو در ورد درست کردم که ابتدا متن یک سطر رو کپی میکنه بعد یه هایپر لینک ایجاد می کنه بعد در قسمت آدرس پیست میکنه مشکل اینجاست که در واقع پیست نمیشه و فقط همون متن بار اول هست

کد:

---

    Selection.HomeKey Unit:=wdLine
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.Copy
    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="C:\Program Files", _
        SubAddress:="", ScreenTip:=""

---

من می خواستم یه کدی بنویسم که در قسمت =:Address متنی که کپی کردم رو پیست کنم لطفا راهنمایی بفرمایید

اگه درست فهمیده باشم
یه text box درست کن
میشه text1
حالا اونجا اینجوری می زنی

نقل قول:

---

ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="text2.text"

---

من نتونستم این کارو بکنم اگه زحمتی نیست شما ماکروش رو درست کنید کدش رو بزارید