Visualizzazione dei risultati da 1 a 6 su 6
  1. #1
    Utente di HTML.it L'avatar di XWolverineX
    Registrato dal
    Aug 2005
    residenza
    Prague
    Messaggi
    2,565

    VB6 - Aprire un file.doc

    Salve, ho la necessità di aprire un determinato file .doc.
    Utilizzando la funzione shell questa mi da errore (evidentemente apre solo eseguibili??)
    Avete qualche soluzione?
    "Se proprio devono piratare, almeno piratino il nostro." (Bill Gates)

    "Non è possibile che 2 istituzioni statali mi mettano esami nello stesso giorno." (XWolverineX)

    http://xvincentx.netsons.org/programBlog

  2. #2
    Devi referenziare la libreria "Microsoft Word...10.0" ecc..
    e poi creare l'oggetto tramite codice..ora non ho vb e a mente non me lo ricordo, cmq mi sembra:
    codice:
    Dim App As New Word.Application
    dim Doc as new word.document
    set doc = app.documents.open("c:\tuofile.doc")
    ciao

  3. #3
    Utente di HTML.it
    Registrato dal
    Sep 2005
    Messaggi
    357
    Hai provato anche con :

    codice:
    Filedoc = "c:\miodoc.doc"
    X = Shell("C:\Programmi\Microsoft Office\Office10\winword.exe  " & Filedoc & "", vbNormalFocus)
    Scusa, avevo dimenticato il percorso e sbagliato l'apice finale, adesso funziona!

  4. #4
    Utente di HTML.it L'avatar di XWolverineX
    Registrato dal
    Aug 2005
    residenza
    Prague
    Messaggi
    2,565
    Sembra aprirsi ma non si vede niente.
    E' bastato aggiungere
    codice:
    App.ShowMe()
    Stranamente quanto uso questo metodo mi dice che il file è disponibile in modalità sola lettura...
    "Se proprio devono piratare, almeno piratino il nostro." (Bill Gates)

    "Non è possibile che 2 istituzioni statali mi mettano esami nello stesso giorno." (XWolverineX)

    http://xvincentx.netsons.org/programBlog

  5. #5
    Utente di HTML.it L'avatar di XWolverineX
    Registrato dal
    Aug 2005
    residenza
    Prague
    Messaggi
    2,565
    Originariamente inviato da mgmg
    Hai provato anche con :

    codice:
    Filedoc = "c:\miodoc.doc"
    X = Shell("winword.exe  " & Filedoc & ", vbNormalFocus")
    Con questo modo (Anche se è scritto male) non va bene, non succede niente.
    "Se proprio devono piratare, almeno piratino il nostro." (Bill Gates)

    "Non è possibile che 2 istituzioni statali mi mettano esami nello stesso giorno." (XWolverineX)

    http://xvincentx.netsons.org/programBlog

  6. #6
    Utente di HTML.it L'avatar di XWolverineX
    Registrato dal
    Aug 2005
    residenza
    Prague
    Messaggi
    2,565
    Chiedo scusa il tuo è proprio quello che ha funzionato.
    "Se proprio devono piratare, almeno piratino il nostro." (Bill Gates)

    "Non è possibile che 2 istituzioni statali mi mettano esami nello stesso giorno." (XWolverineX)

    http://xvincentx.netsons.org/programBlog

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.