замена текста на гиперссылку на сайт в интернете

[fym]

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

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

[R71MT]

..жми F5 (найти в документе), загоняеш название ссылки, и дальше Ctrl+K с адресом.
Если название ссылки или адреса разные, то одним махом (скриптом) не получится..

[cw_o]

попробуйте:

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

Работает, если ссылка расположена сразу следующим абзацем после текста

[fym]

Да, код работает, спасибо
Только можно как-то контролировать процесс? Сделать, чтобы он работал для единичного случая? Допустим, он заменяет первую найденную ссылку после курсора. Потому что есть ссылки, которые необходимо так заменить, а какие-то не трогать.

[fym]

Так как ограничить действие макроса? Чтобы или была единичная замена по первой найденной ссылке или меняло только в выделенном участке текста? Хээлп. Пожалуйста.

[cw_o]

чтоб меняло в выделенном тексте:

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