Newsgroup: it.comp.appl.access
Titolo: Word

Ciao,
devo aprire un documento word da access.
Voglio mettere un tasto in una maschera di access che mi apra Word, un file 
.doc specifico che è protetto da password.
Mi sapete fare un esempio dell'istruzione da scrivere.
Grazie
Gianna 


Private Sub nometasto_Click()
    Dim stAppName As String
        stAppName = "WinWord.exe C:\NomeCartella\Nomefile.doc"
    Call Shell(stAppName, 1)
End Sub
Ovviamente all'apertura del file.doc dovrai digitare la password

 Gianna
Ciao Gianna.
Se inserisci i riferimenti a Word potrai approfittare del visualizzatore
oggetti per vedere Metodi e proprietą della Libreria di Word.
Dim Wrd As Word.Application, Doc As Word.Document
Set Wrd = CreateObject("Word.Application")
Set Doc =Wrd.Documents.Open(FileName, _
                                             ConfirmConversions, _
                                             ReadOnly, _
                                             AddToRecentFiles, _
                                             PasswordDocument, _
                                             PasswordTemplate, _
                                             Revert, _
                                             WritePasswordDocument, _
                                             WritePasswordTemplate, _
                                             Format, _
                                             Encoding, _
                                             Visible, _
                                             OpenConflictDocument, _
                                             OpenAndRepair , _
                                             DocumentDirection, _
                                             NoEncodingDialog)
Doc.Activate
ecc....!
Tutti i parametri che vedi non sono obbligatori, sicuramente a te basterą
passare FileName e PasswordDocument per aprire l'istanza di Word con il
Documento senza dover digitare a mano la PWD.
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

[cut]
Ciao Alex, mi inserisco per chiederti una cosa:
ho realizzato un db che contiene in una maschera due caselle di riepilogo .
la casella di riepilogo "CARTELLE" contiene il nome delle directory dell'HD,
la casella di riepilogo PRG i nomi dei rispettivi files.
sotto due caselle di testo che si popolano : la prima con il path, la
seconda con il path + nome del file.
un pulsante di comando LANCIA che "dovrebbe" aprire il file che compare
nella textbox dove c'è il path+nome del file.
la domanda è questa : per il momento sto provando a lanciare files di word
in questo modo :
Function copia_file(origine As String)
Dim nomedelfile As Object, doc As Word.Document
Set nomedelfile = CreateObject("Word.application")
Set doc = nomedelfile.Documents.Open(origine)
doc.Activate
End Function
(dove origine è la path del file)
il database si pianta devo chiuderlo con il task manager, il file di word
non si apre.
pero allo stesso file di word il database fa qualcosa, perchè se tento di
aprire il file di word con doppio click mi notifica che già un'altra
applicazione sta utilizzando il file.(forse per capire meglio ti devo
mandare l'applicativo ??)
2° domanda : siccome il mio db presenta tutti i file nella casella di
riepilogo è possibile aprire i file anche se sono di excel, pdf o
quant'altro ?
Se si come devo fare ? controllare l'estensione, associarla all'applicativo,
e poi aprirla ?
Grazie per la risposta.

 ha scritto nel messaggio
news:cpq8c0$nh3$1...@lacerta.tiscalinet.it...

Ciao Sandro.
La tecnica descritta prevede tra i Riferimenti la Libreria di
Word, pertanto se non la inserisci è normale un malfunzionamento.
Ti consiglio poi di vedere l'Help nel quale trovi il codice corretto
e completo che verifica se Word è già aperto .
Tutto questo però funziona bene solo con l'Automazione Word,Excel
e tutti i prodotti MS di cui è possibile accetere via Automazione.
Se i programmi però non li devi gestire, ma solo aprire io ti consiglio
tecnice differenti:
vedi l'utilizzo di Shell nel caso di Eseguibile
oppure ShellExecute API di Windows.
In ogni caso puoi vedere sul mio sito:
Sezione [API]
    Eseguire un File e determinarne la chiusura
Trovi un demo interessante, anche se forse un pò complesso.


[cut]
CIAO ALEX (sto gridando anche stasera!!!)
sei un grande, grande !!!
ho risolto cosě prendendo solo questo dalla tua demo.
Function copia_file(origine As String)
On Error GoTo error
Dim ret As Integer
ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (origine))
ripristina:
    Exit Function
error:
MsgBox ("Qualcosa non va")
Resume ripristina
End Function
Ero quasi convinto che dopo tutto quel lavoro, dovessi rinunciare.
Avevo provato anche con shell(origine), prima di postarti ma non so perchč,
mi spccava la stringa in + parti e non riuscivo a lanciare il file.
i riferimenti erano ok li avevo impostati correttamente.
GRAZIE. GRAZIE, GRAZIE.
Ciao , buona serata.

 Ciao , buona serata.
Ottimo.
Ciao.


 Gianna
puoi appoggiarti anche semplicemente ad un collegamento ipertestuale...
ciao
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio 
news:cpq1pr$b0a$1...@carabinieri.cs.interbusiness.it...

comando44 è il pulsante
schedayperlink è la casella contentente il nome del file doc:
Dim file_doc As String
Dim percorso As String
percorso = "J:\"
file_doc = Trim(Me.schedahyperlink)
Dim MyFile, MyPath, MyName
MyFile = Dir(percorso & file_doc)
If MyFile = file_doc Then
MsgBox "ok esiste"
Me.Comando44.HyperlinkAddress = percorso & file_doc
Else
MsgBox "non esiste"
End If

 ha scritto nel messaggio 
news:cpq1pr$b0a$1...@carabinieri.cs.interbusiness.it...


 ha scritto nel messaggio
news:cprv8q$mdl$1...@hulme.interac.it...

Verissimo, ma non ne hai assolutamente il controllo, e spesso
invece accade che l'applicazione Principale debba essere condizionata
proprio dagli effetti su quella Secondaria.....
Ciao
