Страницы: 1
RSS
Открыть документ Word с помощью знака Word
 
Добрый день.
Помогите пожалуйста с файла екселя необходимо открыть файл ворд с помощью знака ворд. (файл прикрепляю).
Как сделать знак ворда в файле ексель рабочим и как делается такой значок.
Спасибо
 
Код
Sub Объект1_Щелчок()
    Dim appWord As Object
    Set appWord = CreateObject("Word.Application")
    appWord.Visible = True
End Sub
 
Какой документ нужно открывать?
 
Вкладка Вставка -группа Текст -Объект. Из файла. Выбираете нужный файл Word. Ставите галочку "в виде значка".  
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Документ который должен открыться через ексель:  имя = "Договор" . местоположение:  D:\Алексей\Договор.docx
 
Код
Shell "explorer.exe """ & " D:\Алексей\Договор.docx" & """", 1
 
спасибо большое за отзывчивость.
я в макросах профан-болван (.
Можно пожалуйста написать полный макрос.
Спасибо)
 
Цитата
aleksey_dannik написал:
Можно пожалуйста написать полный макрос
а мой метод не подходит? Это вроде именно то, что просили изначально: иконка, по нажатию которой открывается документ...И никаких макросов.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Цитата
Вкладка Вставка -группа Текст -Объект. Из файла. Выбираете нужный файл Word. Ставите галочку "в виде значка".  
Так сделал. Появляется значок, но при нажатии на него файл не открывается. В строке формул следующая надпись: =ВНЕДРИТЬ("Document";"")

Что сделать чтоб открылся файл ?
 
Цитата
aleksey_dannik написал:
Можно пожалуйста написать полный макрос.
Код
Sub main()
      Shell "explorer  D:\Алексей\Договор.docx", 1
End sub
Изменено: Nordheim - 20.01.2020 15:01:25
"Все гениальное просто, а все простое гениально!!!"
 
Огромное спасибо ! )
 
Цитата
aleksey_dannik написал:
при нажатии на него файл не открывается
а дважды на него щелкнуть мышью?
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Страницы: 1
Наверх