Всем доброго времени суток!
Проблема такая.
Есть куча случаев подобного плана : есть название сайта и ниже ссылка на него. 
Например,
Форум программистов
http://www.cyberforum.ru/newthread.p...newthread&f=35
Нужно преобразовать текст в гиперссылку. Чтобы, клацая на Форум программистов, можно было перейти на сайт.

И таких источников море. Переделывать каждый вручную - муторное дело. 
Можно ли создать универсальный макрос для такой задачи в ворде 2007 или 2010?
Помогите, пожалуйста, кто чем может 

Есть такой вариант

Код Visual Basic

Sub AddLinksForText()
    Dim link As Hyperlink
    Dim s As String
    For Each link In ActiveDocument.Hyperlinks
        s = link.Address
        link.Range.Select
        Selection.MoveUp wdParagraph, 2, wdExtend
        ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:=s
    Next link
End Sub

Он работает, если ссылка расположена сразу следующим абзацем после текста. НО проблема в том, что есть такие ссылки, которые не нужно менять. Как изменить этот код, чтобы макрос заменял не ВСЕ ссылки в тексте, а по одной? Допустим, я нажимаю комбинацию клавиш, и макрос заменяет первую найденную ссылку после курсора?