открытие документа pdf и doc
Подскажите, пожалуйста, каким образом по нажатию кнопки вызвать Acrobat Reader и загрузить в него документ *.pdf? Нечто похожее делал с Word'ом:
Private Sub ButtonWord_Click()
Dim oWord As Object
Set oWord = CreateObject("Word.Application")
oWord.Documents.Open ("C:\doc1.doc")
oWord.Visible = True
End Sub
Private Sub ButtonWord_Click()
Dim oWord As Object
Set oWord = CreateObject("Word.Application")
oWord.Documents.Open ("C:\doc1.doc")
oWord.Visible = True
End Sub
Если расширение файла связано с соответствующей программой (*.PDF->Acrobat), то можно так:
1. Поставьте галочку в Информация -> Microsoft Shell Control and Automation
2. Dim Sh as New Shell
Private Sub OpenDoc()
Sh.Open "ПУТЬ К ФАЙЛУ"
End Sub
А можно попробовать функцию API ShellExecute ...
1. Поставьте галочку в Информация -> Microsoft Shell Control and Automation
2. Dim Sh as New Shell
Private Sub OpenDoc()
Sh.Open "ПУТЬ К ФАЙЛУ"
End Sub
А можно попробовать функцию API ShellExecute ...
Цитата:
Originally posted by timka-85
Если расширение файла связано с соответствующей программой (*.PDF->Acrobat), то можно так:
1. Поставьте галочку в Информация -> Microsoft Shell Control and Automation
2. Dim Sh as New Shell
Private Sub OpenDoc()
Sh.Open "ПУТЬ К ФАЙЛУ"
End Sub
А можно попробовать функцию API ShellExecute ...
Если расширение файла связано с соответствующей программой (*.PDF->Acrobat), то можно так:
1. Поставьте галочку в Информация -> Microsoft Shell Control and Automation
2. Dim Sh as New Shell
Private Sub OpenDoc()
Sh.Open "ПУТЬ К ФАЙЛУ"
End Sub
А можно попробовать функцию API ShellExecute ...
Спасибо, именно через ShellExecute я и сделал уэе :-)