Принудительно использовать гиперссылку Excel, чтобы открыть Acrobat Reader без изменения системного PDF-ридера по умолчанию - PullRequest
Новая
       12

Принудительно использовать гиперссылку Excel, чтобы открыть Acrobat Reader без изменения системного PDF-ридера по умолчанию

0 голосов
/ 30 апреля 2018

Поскольку у многих пользователей могут быть разные программы редактирования / просмотра PDF, но все пользователи имеют программу Acrobat Reader из-за ИТ-политики, я хочу, чтобы гиперссылка Excel открывала URL-адрес PDF с помощью программы Acrobat Reader.

Я еще не нашел этого, но есть ли какой-нибудь префикс URL вместо file://... чему-то вроде acrobat://...?

Файл PDF находится в локальной сети, а не в Интернете.

Причина, по которой мне нужен Acrobat, чтобы я мог использовать параметры открытия PDF: https://www.adobe.com/content/dam/acom/en/devnet/acrobat/pdfs/pdf_open_parameters.pdf

1 Ответ

0 голосов
/ 30 апреля 2018

Следующая подпрограмма откроет файл PDF с локального диска. 

Sub OpenPDFbyAdobeReader()
    Dim OpenFile
    OpenFile = Shell("C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe E:\TestFolder\TestFile.pdf", vbNormalFocus)
End Sub

Возможно, вам придется изменить путь Adobe Acrobat Reader, где он установлен на вашем компьютере. Замените путь к файлу вашим сетевым путем. Я не проверяю это, используя сетевой путь. Но код проверен на моем ПК с использованием пути к файлу локального диска.

Edit:

Следующий код работает для сетевого пути. 

Sub OpenPDFbyAdobeReader()
    Dim OpenFile
    OpenFile = Shell("C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe \\MyDesktop-PC\Share_Folder\Test_File.pdf", vbNormalFocus)
End Sub

\\MyDesktop-PC\Share_Folder\Test_File.pdf - файл, расположенный по сетевому пути. У вас есть разрешение на доступ к этому файлу.

...