Aprire due file in contemporanea (word e pdf)

[GretPartecipante Gret]

Buongiorno a tutti,

spero nel vostro prezioso aiuto e naturalmente spero di aver postato nella sezione giusta.

Avrei la necessità di aprire in contemporanea due file (uno word e un pdf), il file di partenza è il word ed entrambi i file sono ubicati nella cartella "Formattazioni" nel desktop.

Esempio: apro word e in contemporanea apre il pdf.

Sarebbe possibile fare ciò e se sì come?  

Come sempre vi ringrazio per la vostra disponibilità e se avete bisogno chiedete pure.

Buona continuazione

[vecchio fracSenior Moderator vecchio frac Karma: 245 pts]

Cosa vuol dire "apro il file pdf" ? non ti serve a niente visto che non puoi scriverci, certo puoi aprirlo in modalità binaria ma per farci cosa? Un pdf di solito e normalmente lo si crea a partire da un Word o da un Excel, ma solo alla fine delle operazioni, quando hai il documento formattato e pronto per la pubblicazione.

Spiega per favore un po' meglio lo scopo del tuo progetto, cosa devi fare e cosa vuoi ottenere.

[GretPartecipante Gret]

Ciao e grazie per aver risposto.

vecchio frac ha scritto:

non ti serve a niente visto che non puoi scriverci

infatti non ci devo scrivere.

A me sarebbe utile averlo insieme ad un file vuoto word (aprirlo insieme appunto), che compilerò ricopiando alcuni dati del pdf in tabelle, così ho bisogno del pdf originale. Una specie di scorrimento asincrono ecco.. Così se non dovessi finirlo (file word), a me basta fare doppio clic ed insieme al file word si apre il file pdf da cui sto prendendo i dati.

Spero di aver chiarito  

 

[Anonimo Karma: 1 pt]

In un Modulo inserisci questo codice:

Option Explicit

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

poi per aprire i file crei una macro (nello stesso Modulo) e la usi così:

Call ShellExecute(0, "open", Chr(34) & NomeFile & Chr(34), vbNullString, vbNullString, SW_SHOWNORMAL)

in cui NomeFile deve essere il percorso completo del file Word da aprire; poi riesegui la funzione passando il percorso del file PDF in NomeFile.

 

[GretPartecipante Gret]

Ciao e grazie per aver risposto. Domani appena vado a lavoro ti faccio sapere..   

Buona serata   

[zer0kelvinPartecipante zer0kelvin Karma: 5 pts]

Ciao.

Non servono le API di windows per aprire un qualunque file; si può usare la funzione Shell di VBA.

Metti questo nel modulo di ThisDocument ed ogni volta che il documento viene aperto si aprirà anche il pdf che avrai specificato

Private Sub Document_Open()

    Dim F_Path As String
    
    F_Path = "C:\PathEsempio\NomeDelFile.pdf" ' <<==== MODIFICA QUESTO PERCORSO
    Shell "Explorer.exe  " & """" & F_Path & """"

End Sub

[GretPartecipante Gret]

Eccomi e scusate se rispondo ora  

Vi ringrazio entrambi per le soluzioni che mi avete proposto.

La soluzione di zer0kelvin è quella che fa al caso mio.

Grazie ancora e buon weekend  

 

[Autore]

Articoli