GetHyperlinkTitle – получить заголовок гиперссылки на объект DIRECTUM

Синтаксис:

function GetHyperlinkTitle(
const HyperlinkAddress: WideString): WideString;

Параметры:

HyperlinkAddress – адрес гиперссылки.

Возвращаемое значение:

Заголовок гиперссылки на объект системы DIRECTUM.

Описание:

Функция возвращает заголовок заданной ссылки на объект системы DIRECTUM.

Пример:

Dim HyperlinkTitle As String
' Получить эталонный заголовок гиперссылки.
HyperlinkTitle = IntLib.GetHyperlinkTitle( _
 Application.Selection.Hyperlinks.Item(1).Address)
' Вернуть эталонный заголовок гиперссылке, если он изменился.
If (HyperlinkTitle <> "") And _
 (Application.Selection.Hyperlinks.Item(1).TextToDisplay <> _
 HyperlinkTitle) Then
 Application.Selection.Hyperlinks.Item(1).TextToDisplay = HyperlinkTitle
End If