Newsgroup: it.comp.appl.access
Titolo: Aprire file doc

Ciao a tutti,
volevo sapere la stringa per aprire un file da codice
GRAZIE
Roberto

 ha scritto nel messaggio
news:8Q5Kc.12647$5D1.4...@news4.tin.it...

Vai sul Sito Comune (link qui sotto) e nella Sezione Geberal leggi la FAQ di
Federico Luciani intitolata "Esempio di automazione con MSWord".
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 Roberto
Ok si ma questo serve per creare il file...io file l'ho già e voglio solo
aprirlo dal mio database, che ne so sull'evento click di un tasto...
Ciao


 ha scritto nel messaggio
news:8Q5Kc.12647$5D1.4...@news4.tin.it...

Ciao Roberto,
Potresti  usare WSH o le API, io trovo più comodo WSH.
----------------
Sub EseguiComando(ByVal Comando As String)
  Dim WshShell As Object
  Set WshShell = CreateObject("WScript.Shell")
  WshShell.Run Comando
  Set WshShell = Nothing
End Sub
----------------
per usarla : EseguiComando "C:\Documenti\1.Txt"
in questo modo apri qualsiasi file associato a un'applicazione senza
preoccuparti del percorso di installazione della stessa.
se ti interessa la soluzione con le API (funziona allo stesso modo)
--------------------
Start an app with ShellExecute
http://www.mvps.org/access/api/api0018.htm
--------------------
Ciao Giorgio

 volevo sapere la stringa per aprire un file da codice
Prova la creazione automatica e poi guarda il codice che ha generato
Sib

 >
Prova così:
   Dim WordApp  As Object
   Dim WordNewDoc  As Object
   Set WordApp = CreateObject("Word.Application")
   Set WordNewDoc = CreateObject("Word.Document")
   Set WordNewDoc = WordApp.Documents.Open("C:\Documenti\Prova.doc")
   WordApp.Visible = True
   Set WordNewDoc = Nothing
   Set WordApp = Nothing
Naturalmente al posto di C:\Documenti\Prova.doc scrivi il path completo del
file word da aprire.
-- 


Non ho ben capito come usarla prova ad inserirmela su questo evento:
Private Sub Lettera_Click()
On Error GoTo Err_Lettera_Click
Exit_Lettera_Click:
    Exit Sub
Err_Lettera_Click:
    MsgBox Err.Description
    Resume Exit_Lettera_Click
End Sub
ciao e grazie
Roberto

 ha scritto nel messaggio
news:H8cKc.55286$GQ3.1...@twister2.libero.it...

Non funziona bene...ti spiego:
il file doc che vado ad aprire è una stampa unione...se faccio come hai
scritto, all'apertura non si aggiorna con il DB e rimane come congelato
all'apertura precedente, mentre se apro solo l'applicazione e poi da word
apro il file funziona tutto....perchè???
Non c'è un'istruzione barbara che sostituisca il mio doppio clic sul file?
Grazie come sempre
Roberto


E quando lo dici che il documento č il master di una stampa unione?
Mai venuto in mente di cercare nei vecchi messaggi di questo NG con Google?
Riavvolgi e rispiega cosa ti serve cercano di non omettere informazioni che
possono portare ad una veloce conclusione; credo sia nel tuo interesse...
Ciao.
-- 
Sergio MAZZA


Ciao,
inserisci la sub in un modulo bas e poi
------------------------
 Private Sub Lettera_Click()
 On Error GoTo Err_Lettera_Click
'
EseguiComando "C:\Documenti\1.Txt"
 Exit_Lettera_Click:
     Exit Sub
 Err_Lettera_Click:
     MsgBox Err.Description
     Resume Exit_Lettera_Click
 End Sub
----------------------------
Ciao Giorgio

 Roberto
Sottoscrivo ciò che ti ha scritto Sergio MAZZA.
