с рисунком Dim MyPath As
|
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 |
| Листинг 1.40. |
| Закрыть окно |
