1

Тема: Создание гиперссылки с помощью макроса Word

Создание гиперссылки с помощью макроса Word

Вариант 1: Адрес ссылки и текст надписи задаются непосредственно в теле макроса:

Sub Hyperlink1()
    Dim URL1 As String
    Dim URL_Label1 As String
    URL1 = "http://wordexpert.ru/forum/index.php"  'адрес ссылки
    URL_Label1 = "Форум Wordexpert.ru"   'текст надписи
    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
        URL1, SubAddress:="", ScreenTip:="", TextToDisplay:=URL_Label1
End Sub

Вариант 2: Адрес ссылки задается в теле макроса, текст надписи должен быть предварительно выделен в пользовательском режиме:

Sub Hyperlink2()
    Dim URL1 As String
    URL1 = "http://wordexpert.ru/forum/index.php"
    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
        URL1, SubAddress:="", ScreenTip:="", TextToDisplay:=Selection
End Sub

Вариант 3: Адрес ссылки вводится в поле InputBox, текст надписи должен быть предварительно выделен в пользовательском режиме:

Sub Hyperlink3()
    Dim URL1 As String
    URL1 = InputBox("Введите адрес гиперссылки:", "Ввод адреса")
    'Вводим адрес гиперссылки: http://wordexpert.ru/forum/index.php
    ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
        URL1, SubAddress:="", ScreenTip:="", TextToDisplay:=Selection
End Sub
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.