Risultati da 1 a 17 di 17

Discussione: Aprire da Excel VBA un file Word



  1. #1

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6798
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    164

    Aprire da Excel VBA un file Word

    Ciao a tutti

    con questa macro (non mia) apro da Excel un file di Word

    Codice: 
    Sub ApriFileWord()
    Dim objWord
       Dim objDoc
       Set objWord = CreateObject("Word.Application")
       Set objDoc = objWord.Documents.Open("c:\excel\corso VBA.docx")
       objWord.Visible = True
    End Sub
    Il file si apre perfettamente ma rimane "iconizzato" sulla barra di stato di Windows. Che istruzione devo aggiungere per aprirlo a tutto schermo?

    Grazie

    Alfredo

  2. #2
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Ciao a tutti

    con questa macro (non mia) apro da Excel un file di Word

    Codice: 
    Sub ApriFileWord()
    Dim objWord
       Dim objDoc
       Set objWord = CreateObject("Word.Application")
       Set objDoc = objWord.Documents.Open("c:\excel\corso VBA.docx")
       objWord.Visible = True
    End Sub
    Il file si apre perfettamente ma rimane "iconizzato" sulla barra di stato di Windows. Che istruzione devo aggiungere per aprirlo a tutto schermo?

    Grazie

    Alfredo
    Ciao Alfredo prova ad usare questo :

    Codice: 
    Sub ApriFileWord()
    Dim nome as string
    
    nome = "C:\excel\corso VBA.docx"
    ThisWorkbook.FollowHyperlink nome
    End Sub
    Ciao.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  3. #3

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6798
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    164
    Grazie Baloon della risposta.

    La macro, ovviamente, funziona ma non si potrebbe evitare la visualizzazione dell'iniziale messaggio di allerta sulla potenziale dannosità degli Hyperlinks?

    Ho provato con Application.DisplayAlerts = False ma non va.

    Forse bisogna modificare, nelle impostazioni di Excel l'attendibilità dei percorsi?

    Se si sai come fare?

    Alfredo

  4. #4
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Grazie Baloon della risposta.

    La macro, ovviamente, funziona ma non si potrebbe evitare la visualizzazione dell'iniziale messaggio di allerta sulla potenziale dannosità degli Hyperlinks?

    Ho provato con Application.DisplayAlerts = False ma non va.

    Forse bisogna modificare, nelle impostazioni di Excel l'attendibilità dei percorsi?

    Se si sai come fare?

    Alfredo
    Credo che sia proprio un'impostazione di excel perchè a me non lo fa. Me lo fa invece sui file PDF ma non sono riuscito ad eliminarlo.

    ciao

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  5. #5
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Se vai quì trovi la risposta

    https://support.microsoft.com/it-it/kb/925757

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  6. #6

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6798
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    164
    Grazie lo stesso Baloon

    Ricordo che una volta anch'io ho provato a modificare i percorsi di attendibilità ma senza grandi risultati.

    alfredo

  7. #7
    L'avatar di GiuseppeMN
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Mantova
    Messaggi
    864
    Versione Office
    2000 - 2013
    Likes ricevuti
    285
    Likes dati
    160
    Solo ora mi sono accorto di aver inserito la risposta precedente nella Discussione errata.

    Cancello e riscrivo in:
    http://www.forumexcel.it/forum/7-dom...7695#post17695
    Windows XP Excel 2000 - Windows 10 Excel 2013

  8. #8
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    Se vai quì trovi la risposta

    https://support.microsoft.com/it-it/kb/925757
    A titolo informativo :Ho scaricato il fix e l'ho lanciato ma non ha sortito alcun cambiamento

    Ciao.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  9. #9
    L'avatar di zio_tom
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Veneto
    Messaggi
    526
    Versione Office
    2010 - Win10
    Likes ricevuti
    64
    Likes dati
    17
    Codice: 
    Sub soloAperturaWord()
        Dim wordApp As Object
        
        Call Application.FileDialog(msoFileDialogOpen).Filters.Clear
        Call Application.FileDialog(msoFileDialogOpen).Filters.Add("Documenti Word", "*.doc*")
        Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
    
        If Application.FileDialog(msoFileDialogOpen).Show = 0 Then
            MsgBox "Operazione interrotta", vbExclamation, "Messaggio"
            Exit Sub
        End If
      
        Set wordApp = CreateObject("Word.Application")
        wordApp.Documents.Open Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
        wordApp.Visible = True
        Set wordApp = Nothing
    End Sub

  10. #10

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6798
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    164
    Ciao zio_tom

    Ringrazio anche te dell'intervento ma la tua macro (che funziona benissimo) ha lo stesso problema di quella che avevo inizialmente postato ossia il file di Word si apre ma rimane "iconizzato" sulla barra di stato di Windows.

    C'è qualche modo (al di la di quello segnalato da Baloon_50 che saluto) per "visualizzare" il file medesimo?

    Alfredo

  11. #11
    L'avatar di zio_tom
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Veneto
    Messaggi
    526
    Versione Office
    2010 - Win10
    Likes ricevuti
    64
    Likes dati
    17
    penso sia un tuo settaggio in quanto a me si apre e non si iconizza
    ma non saprei dove mettere mano
    io ho Win10 ed Office 2010

  12. #12

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1227
    Likes dati
    923
    Ciao a tutti,

    @Alfredo
    forse questa soluzione è un pò come giocare sporco ma "se maometto non va alla montagna...."

    Ho notato che quando apri il documento word, questo non è ridotto a icona ma è semplicemente "dietro" il foglio excel attivo, quindi aggiungerei questa riga (in rosso):

    Codice: 
    Sub ApriFileWord()
    Dim objWord
       Dim objDoc
       Set objWord = CreateObject("Word.Application")
       Set objDoc = objWord.Documents.Open("c:\excel\corso VBA.docx")
       objWord.Visible = True
       ActiveWindow.WindowState = xlMinimized
    End Sub

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  13. #13

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    57
    Messaggi
    1017
    Versione Office
    .
    Likes ricevuti
    366
    Likes dati
    0
    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Il file si apre perfettamente ma rimane "iconizzato" sulla barra di stato di Windows. Che istruzione devo aggiungere per aprirlo a tutto schermo?
    Puoi provare così:
    Codice: 
    Sub ApriFileWord()
      Dim objWord
      Dim objDoc
      Set objWord = CreateObject("Word.Application")
      Set objDoc = objWord.Documents.Open("c:\excel\corso VBA.docx")
      objWord.Visible = True
      VBA.AppActivate objWord.Windows(1).Caption
      Set objDoc = Nothing
      Set objWord = Nothing
    End Sub
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

  14. I seguenti utenti hanno dato un "Like"


  15. #14

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6798
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    164
    @ Cromagno

    Tore la tua soluzione (almeno a me) non funziona nel senso che viene iconizzato il foglio (Excel rimane a tutto schermo) e il file di Word rimane sulla barra.

    La soluzione di scossa invece (e che dubbio c'era? :188:) è perfetta.

    Marco mi spiegheresti l'istruzione

    Codice: 
    VBA.AppActivate objWord.Windows(1).Caption
    non riesco a capire cosa materialmente faccia.

    Grazie

    Alfredo

  16. #15

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1227
    Likes dati
    923
    Ciao Alfredo,
    non saprei dirti perchè a me funziona :273:

    Anche io vorrei capire capire il metodo usato da "scossa" (che saluto)...
    Mi son fatto una mezza idea ma ... manca l'altra mezza.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  17. #16

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    57
    Messaggi
    1017
    Versione Office
    .
    Likes ricevuti
    366
    Likes dati
    0
    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    Marco mi spiegheresti l'istruzione

    Codice: 
    VBA.AppActivate objWord.Windows(1).Caption
    non riesco a capire cosa materialmente faccia.
    l'help di AppActivate recita
    L'istruzione AppActivate attiva la finestra di applicazione specificata
    senza modificarne la modalità di visualizzazione (ingrandita o ridotta a icona).
    La finestra resterà attiva fino a quando non verrà chiusa o non verrà attivata
    un'altra finestra.
    Quindi specificando la caption della finestra relativa al documento dell'applicazione Word istanziata la stessa verrà attivata.
    Questo variazione attiva il primo documento Word specificato (test.doc) e dopo 4 secondi il secondo (test_2.doc):
    Codice: 
    Sub ApriFileWord()
      Dim objWord As Object
      Dim objDoc As Object
      Dim ObjDoc2 As Object
      Set objWord = CreateObject("Word.Application")
      Set objDoc = objWord.Documents.Open("c:\Temp\test.doc")
      Set ObjDoc2 = objWord.Documents.Open("c:\Temp\test_2.doc")
      objWord.Visible = True
      VBA.AppActivate objWord.Windows(1).Caption    'attivo test.doc
      Application.Wait (Now + TimeValue("0:00:04"))
      VBA.AppActivate objWord.Windows(2).Caption    'attivo test2.doc
      Set objDoc = Nothing
      Set objDoc2 = Nothing
      Set objWord = Nothing
    End Sub
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

  18. I seguenti utenti hanno dato un "Like"


  19. #17

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6798
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    164
    Grazie mille Marco.

    Alfredo

Discussioni Simili

  1. [Risolto] Aprire userform per loggarsi prima del file di excel
    Di ceskonet13 nel forum Domande su Excel VBA e MACRO
    Risposte: 37
    Ultimo Messaggio: 01/03/17, 15:43
  2. Macro da File Excel a file Word
    Di prupri nel forum Domande su Excel VBA e MACRO
    Risposte: 2
    Ultimo Messaggio: 02/12/16, 09:02
  3. [Risolto] Aprire file excel da pulsante su maschera
    Di KARLO16 nel forum Domande su Microsoft Access
    Risposte: 6
    Ultimo Messaggio: 25/10/16, 10:25
  4. impossibile aprire file excel - errore dll
    Di sebyspadaro nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 26/01/16, 00:02
  5. Aprire file CSV in Excel evitando importazione guidata
    Di mspr nel forum Domande su Excel in generale
    Risposte: 8
    Ultimo Messaggio: 30/09/15, 20:46

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •