Public Sub CreateBookmarks()
'Создание закладок
	'Создадим закладку в документе DocOne и свяжем ее с рисунком
	Dim MyPath As String
	Documents("DocOne").Activate
	 With ActiveDocument
		MyPath = .Path
		.InlineShapes(1).Select 'рисунок мышки
		.Bookmarks.Add "PictureOfMouse", Selection.Range
	 End With
	'Создадим закладку в документе ExampleOfTable и свяжем ее с таблицей
	Documents.Open (MyPath & "\ExampleOfTable")
	Documents("ExampleOfTable").Activate
	 With ActiveDocument
		.Tables(1).Select 'таблица Менделеева
		.Bookmarks.Add "ТаблицаМенделеева", Selection.Range
	 End With
End Sub