Public Sub CreateHyperLinks()
'Создание гиперссылок
	'Создадим три гиперссылки в документе DocOne
	Dim MyPath As String
	Documents("DocOne").Activate
	
	 With ActiveDocument
		MyPath = .Path
		'гиперссылка- элемент группового объекта TableOfFigures
		'свяжем ее с закладкой этого же документа
		.shapes(2).GroupItems(6).TextFrame.TextRange.Select
		.Hyperlinks.Add Anchor:=Selection.Range, _
			Address:="", SubAddress:="PictureOfMouse"
		
		'гиперссылка- элемент группового объекта TableOfFigures
		'свяжем ее с закладкой другого документа
		.shapes(2).GroupItems(7).TextFrame.TextRange.Select
		.Hyperlinks.Add Anchor:=Selection.Range, _
			Address:=MyPath & "\ExampleOfTable.doc", _
			SubAddress:="ТаблицаМенделеева", _
			ScreenTip:="Переход к документу," _
			& " содержащему таблицу Менделеева"
		'гиперссылка-	объект TableOfFigures
		'свяжем ее с URL
		.shapes(1).Select
		.Hyperlinks.Add Anchor:=Selection.Range, _
			Address:="http://www.microsoft.ru/offext/", _
			SubAddress:="", _
			ScreenTip:="Переход к Web- странице" _
			& " программы Office Extensions"
	 End With
	'Создадим гиперсссылку в документе ExampleOfTable
	'и свяжем ее с закладкой документа DocOne
	Documents("ExampleOfTable").Activate
	 With ActiveDocument
		'Установка гиперссылки возврата в документ Word DocOne
		.Tables(1).Select 'таблица Менделеева
		Selection.MoveDown
		Selection.Expand
		.Hyperlinks.Add Anchor:=Selection.Range, _
			Address:=MyPath & "\DocOne.doc", _
			SubAddress:="PictureOfMouse", _
			ScreenTip:="Возврат к документу DocOne"
		'Установка гиперссылки перехода
		'к именованному элементу документа Excel - BookOne
		Selection.MoveDown
		Selection.Expand
		.Hyperlinks.Add Anchor:=Selection.Range, _
			Address:=MyPath & "\BookOne.xls", _
			SubAddress:="ТаблицаПродаж", _
			ScreenTip:="Переход к элементу" _
			& " c именем ТаблицаПродаж документа Excel - BookOne"
		
	 End With
End Sub