Создание ссылки макросом

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Создание ссылки макросом (Создание ссылки макросом)

Создание ссылки макросом

Мур

Дата: Четверг, 28.03.2013, 22:00 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 436

Репутация: 19 ±

Замечаний: 0% ±

Вопрос общего характера, поэтому без примера.
Возможно ли написать код в книге макросов Word, чтобы при его запуске создавалась ссылка в определенной ячейке, в строго определенном файле Excel, на текущий документ Word?
Если такое возможно попытаюсь приложить пример.

Ответить

RAN

Дата: Четверг, 28.03.2013, 23:51 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Поэкпериментировал.
Макрос для файла Word
[vba]

Код

Sub qqq()
     Dim objExcel As Object
     Dim FileName$
     FileName = "C:\Documents and Settings\Андр\Мои документы\0.xls"
     Set objExcel = CreateObject("Excel.Application")
     DoEvents
     With objExcel
         .DisplayAlerts = False
         With .Workbooks.Open(FileName)
             DoEvents
             .sheets(1).Hyperlinks.Add Anchor:=.sheets(1).Range("A1"), _
                    Address:=ActiveDocument.FullName, TextToDisplay:=ActiveDocument.FullName
             .Save
             .Close
         End With
         .DisplayAlerts = False
     End With
     Set objExcel = Nothing
End Sub

[/vba]

Пробовал из активного документа. Вероятно, нужно сохранить в Normal.dot.

Быть или не быть, вот в чем загвоздка!

Ответить

Мур

Дата: Пятница, 29.03.2013, 09:31 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 436

Репутация: 19 ±

Замечаний: 0% ±

RAN, изумительно! Не ожидал положительного результата.
Работает замечательно ... не могу скрыть своей радости.
Большое спасибо! Куда сохранить код не проблема.

Теперь, для применения на практике мне надо, чтобы появлялось
диологовое окно, чтобы задавать данные (номер) от которых будет зависеть целевая ячейка для вставки ссылки.
В приложенном примере ссылка должна вставляется в столбец "C", в ячейку расположенную
напротив значения в стобце "A", заданного в диалоговом окне! Например, если в диалоговом задать
значение "003.13", то адрес ячейки "C3".

К сообщению приложен файл: VVV.xlsx (10.7 Kb)

Сообщение отредактировал Мур - Пятница, 29.03.2013, 10:16

Ответить

Создание ссылки макросом (Создание ссылки макросом)

Страница 1 из 1
1