vba word: minimizzare foglio e lasciare userform

[karug64]

Salve a tutti.

Nell'evento open del documento docm ho inserito il seguente codice:

Codice: Seleziona tutto

Private Sub Document_Open()
Application.WindowState = wdWindowStateMinimize
UserForm1.Show
End Sub


con l'idea di minimizzare il foglio di lavoro e di lasciare a video solo la userform1 (che funge da menu e da cui lancio tutte le altre).

Purtroppo il documento resta in bella vista ....

Come si può risolvere ?

Grazie

[Anthony47]

Sempre?
A me il comportamento e' corretto (salvo che il documento rimane visibile nella barra delle applicazioni e da lì puo' essere aperto)
Per qualcosa di piu' "duro", puoi lavorare sulla visibilita' della finestra:

Codice: Seleziona tutto

ActiveWindow.Visible = False
'....
ActiveWindow.Visible = True

Ciao

[karug64]

Grazie Anthony.

Vorrei evitare il visible = false per una serie di motivazioni, prima tra le quali il fatto che se per un errore qualsiasi il programma si blocca l'utente non riesce a recuperare la finestra ....

Come puoi vedere nell'immagine



il foglio resta sotto, sempre.

Utilizzo win 10 64bit con office 2010.

Strano, no ?

[Anthony47]

Effettivamente se ci sono piu' di un documento aperti anche a me la finestra non si minimizza...
Questa modifica sembra che riporti tutto alle attese:

Codice: Seleziona tutto

Private Sub Document_Open()
mytim = Timer
Do
    DoEvents
    If Timer > (mytim + 0.5) Then Exit Do
Loop
Application.Activate
Application.WindowState = wdWindowStateMinimize
'etc etc


Ciao

[karug64]

Effettivamente se ci sono piu' di un documento aperti anche a me la finestra non si minimizza...
Questa modifica sembra che riporti tutto alle attese:

Codice: Seleziona tutto

Private Sub Document_Open()
mytim = Timer
Do
    DoEvents
    If Timer > (mytim + 0.5) Then Exit Do
Loop
Application.Activate
Application.WindowState = wdWindowStateMinimize
'etc etc


Ciao

Ok. Anthony. Ora funziona, ma c'è un piccolo problema: l'userform1 resta dietro le eventuali finestre. Nell'immagine che posto il file si chiama doc3.docm e sta dentro la cartella test.
L'utente apre la cartella e clicca due volte sul file che si apre riducendo ad icona word, ma userform resta dietro la cartella (nell'immagine ho spostato leggermente per far capire il concetto, ma in effetti non si vede nulla).



C'e' modo di portare in primo piano la form (altrrimentri la soluzione sarebbe creare un collegamento fuori dalle cartelle .....)

Grazie

[Anthony47]

Mah... l'attivazione di finestre e' comandato da Windows, e da Win7 in avanti e' abbastanza problematico controllare da macro quale finestra attivare.
Prova cosi':
Prima di mostrare la userform attiva l'applicazione:

Codice: Seleziona tutto

Application.WindowState = wdWindowStateMinimize
Application.Activate        '<<<< Aggiungi
UserForm1.Show


Dopo che la userform si chiude, se il doc e' rimasto aperto, massimizza la finestra e attiva l'applicazione:

Codice: Seleziona tutto

Application.WindowState = wdWindowStateMaximize
'Application.Activate            '1
AppActivate "Microsoft Word"     '2 <<<< Aggiungi


In questo caso non funziona la Application.Activate (1) ma la AppActivate (2)

E se anche cosi' non funge proveremo a lavorare con le api di sistema.

Ciao

[karug64]

Ho apportato le modifiche proposte.
La soluzione funziona, "a singhiozzo"

Ho fatto la prova ad aprire più programmi e poi lanciare il doc3.docm.

Purtroppo, (e non riesco ad intercettare la situazione precisa) a volte tutto va bene, a volte invece, addirittura si apre il documento e la userform non si avvia assolutamente .

Tengo a precisare che sul pc su cui sto sviluppando è installato win 10, ma su quelli in produzione ci sarà win7.

Proprio per questo, ritengo, allo stato attuale di non adottare alcuna soluzione e di tornare alla scelta iniziale, ossia lasciare "a vista" il documento.

Grazie comunque per le soluzioni proposte.