Метод Hyperlink.Follow (Word)

Статья
04/07/2023

Отображает кэшированный документ, связанный с указанным объектом Hyperlink , если он уже скачан. В противном случае этот метод разрешает гиперссылку, скачивает целевой документ и отображает документ в соответствующем приложении.

Синтаксис

expression. Follow( _NewWindow_ , _AddHistory_ , _ExtraInfo_ , _Method_ ) _HeaderInfo_

выражение (обязательно). Переменная, представляющая объект Hyperlink.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
NewWindow	Необязательный	Variant	Значение true для отображения целевого документа в новом окне. Значение по умолчанию — False.
AddHistory	Необязательный	Variant	Этот аргумент зарезервирован для использования в будущем.
ExtraInfo	Необязательный	Variant	Массив строк или байтов, указывающий дополнительные сведения для http-адреса для разрешения гиперссылки. Например, с помощью ExtraInfo можно указать координаты карты изображений, содержимое формы или имя FAT-файла. Строка публикуется или добавляется в зависимости от значения Method. Используйте свойство ExtraInfoRequired , чтобы определить, требуются ли дополнительные сведения.
Метод	Необязательный	Variant	Указывает способ обработки дополнительных сведений для HTTP. Может быть любой константой MsoExtraInfoMethod .
HeaderInfo	Необязательный	Variant	Строка, указывающая сведения о заголовке для HTTP-запроса. Значение по умолчанию: пустая строка. Вы можете объединить несколько строк заголовка в одну строку, используя следующий синтаксис: "string1" & vbCr & "string2". Указанная строка автоматически преобразуется в символы ANSI. Обратите внимание, что аргумент HeaderInfo может перезаписать поля заголовков HTTP по умолчанию.

Замечания

Если гиперссылка использует файловый протокол, этот метод открывает документ, а не скачивание.

Пример

В этом примере показана первая гиперссылка в Home.doc.

Documents("Home.doc").HyperLinks(1).Follow

В этом примере гиперссылка вставляется в www.msn.com , а затем следует за гиперссылкой.

Dim hypTemp As Hyperlink 
 
With Selection 
 .Collapse Direction:=wdCollapseEnd 
 .InsertAfter "MSN " 
 .Previous 
End With 
 
Set hypTemp = ActiveDocument.Hyperlinks.Add( _ 
 Address:="https://www.msn.com", _ 
 Anchor:=Selection.Range) 
hypTemp.Follow NewWindow:=False, AddHistory:=True

См. также

Объект гиперссылки

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через