Newsgroup: it.comp.appl.access
Titolo: Per Federico Luciani

Il 12/09/00, mi avevi fatto la seguente proposta per un mio problema di
stampa da access di un specifico file word:
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Dim strPath As String
    strPath = "c:\esempi\"
    strNomeFile = InputBox("Numero del contratto?", "Apre il documento",
"0000-00")
        If strNomeFile = "" Then Exit Sub
        strNomeFile = strPath & Trim$(strNomeFile) & ".doc"
        If Dir(strNomeFile) = "" Then
        MsgBox "Il documento" & strNomeFile & "non esiste!", vbCritical
        Exit Sub
        End If
    On Error Resume Next
    Set wordApp = GetObject(, "Word.Application")
    If Err.Number = 429 Then
        Set wordApp = CreateObject("Word.Application")
        Err.Number = 0
        End If
    On Error GoTo gestErrori
    Set wordDoc = wordApp.Documents.Open(strNomeFile)
    wordApp.Visible = True
    wordApp.WindowState = wdWindowsStateMaximize
esci:
    Set wordDoc = Nothing
    Set wordApp = Nothing
    Exit Sub
gestErrori:
    MsgBox Err.Number & "-" & Err.Description
    GoTo esci
End Sub
Ho finalmente trovato il tempo di provarlo, avendo avuto anche altri
suggerimenti, ma non mi apre il file, cioč alla fine quando mi compare la
richiesta del numero del contratto, mi dice che il file doc č inesistente.
per la cronoca esiste, sono andata a controllare.
Grazie dell'aiuto
Alessia

 wrote in message 8q53s8$qv8$1...@pc1.spin.it...


 wrote in message 8q57ol$shp$1...@pc1.spin.it...


 "0000_00")
ha funzionato, ovviamente ho cambiato anche il nome del file da aprire.
Ora non sono io la grande, se seguivo subito quello che mi aveva suggerito
Federico funzionava tutto.
Ciao e buona giornata.
Ale
Steno <Sten...@Tin.it> wrote in message 8q5oib$41a$1...@nslave2.tin.it...


 wrote in message 8q77jv$nnm$1...@pc1.spin.it...


 Alessia
Scusami per ritardo, ero in ferie :-))
Cmq vedo che hai trovato da sola la soluzione.
In casi di questo tipo anch'io uso sempre e solo l'underscore, e' l'unico
carattere che non mi ha mai dato problemi.
Bye
-- 
Federico
--------------------------------------
Sito Comune di it.comp.appl.access
http://members.xoom.it/it_db_access
mailto:
it_db_...@usa.net
--------------------------------------
Tutte le richieste che mi arrivano
in privato, vengono cestinate.
--------------------------------------
Rimuovi paperino. per e-mail
--------------------------------------


Ferie meritate bravo.
ho approfittato della tua funzione usandola anche nel programma per il
protocollo della posta, fatto tempo fa.
Perň, da  sempre abbiamo salvato la corrispondenza in uscita cosě 00-0001
(cioč anno  trattino e numero di protocollo).
E' sicuro che bisogna usare solo l'underscore, io mi ritrovo a dover
rinnominare +/- 7000 file per poterli aprire e visualizzare.
Esiste una soluzione al problema?
Grazie molte dell'aiuto
Ciao Ale

 Ciao Ale
Non ne sono sicuro al 100%, ma ricordo che c'erano dei problemi e quindi ho
sempre evitato di usarlo.
Cmq per rinominare i files scriviti quattro righe di codice per automatizzare
l'operazione (sul sito trovi una funzione per sostituire alcuni caratteri in
una stringa);
sempre che i files si trovino solo in alcune dir e non sparsi su vari dischi
:-)



Purtroppo è un casino, perchè gli anni dal 94 al 98 gli ho spostati su
CD-ROM.
Per gli altri dovrei farcela.
Tento.
Grazie dell'indicazione
Ciao ed a presto.
Ale


 risposta che dà a una tua domanda - I.Calvino