Screen Flip Flop con VBA (Microsoft Word)
Ci sono molte, molte volte in cui lavoro con due file alla volta in Word.
Ad esempio, potrei leggere un documento e confrontarlo con un altro (e non voglio utilizzare la funzione Confronta documenti). Cerco sempre di mantenere il documento che sto modificando nella parte superiore dello schermo e l’altro documento nella parte inferiore. Chiamalo un capriccio della personalità, ma trovo più facile usare le finestre in questo modo.
Può essere doloroso regolare ripetutamente la posizione delle finestre e assicurarsi che il file corretto sia nella parte superiore dello schermo. Pertanto, ho sviluppato una macro per gestire questa situazione. È possibile utilizzare questa piccola macro pratica per cambiare la finestra “in primo piano” se sullo schermo sono visualizzate due finestre. Probabilmente vorrai assegnarlo a un pulsante della barra degli strumenti o un tasto di scelta rapida, poiché sarà di scarsa utilità se devi continuare a chiamarlo dall’elenco delle macro. Il seguente funzionerà in Word 97:
Sub FlipFlop() If Windows.Count = 2 Then WordBasic.NextWindow WindowArrangeAll End If End Sub
Se stai usando una versione successiva di Word, la macro deve essere leggermente modificata:
Sub FlipFlop() If Windows.Count = 2 Then WordBasic.NextWindow Windows.Arrange End If End Sub
Notare che queste macro funzionano solo se (e solo se) ci sono due finestre sullo schermo. Se c’è più o meno, la macro non fa assolutamente nulla.
Ci sono senza dubbio esperti di VBA che leggono questo suggerimento che noteranno subito che il comando WordBasic.NextWindow avrebbe potuto essere sostituito con ActiveWindow.Next.Activate. (La guida VBA indica che questo è l’equivalente VBA del comando NextWindow in WordBasic.) Tuttavia, quando si esegue questa operazione accade una cosa interessante: la macro non funziona. Puoi provare tu stesso seguendo questi passaggi:
-
Crea due finestre di documenti sullo schermo. (Apri due documenti Word e solo due.)
-
Scegli Disponi tutto dal menu Finestra.
-
Ora inizia a registrare una macro; puoi dargli qualsiasi nome tu voglia.
-
Premi Ctrl + F6, che rende attiva la finestra successiva.
-
Scegli Disponi tutto dal menu Finestra.
-
Ripetere i passaggi 4 e 5 per altre due iterazioni.
-
Fermare il registratore di macro.
-
Esegui la macro che hai appena creato.
Quando esegui questi passaggi, noterai che la macro (quella che Word ha appena creato per te) viene espulsa su uno dei comandi ActiveWindow.Next.Activate. Probabilmente un buon elemento di bug per Redmond, ma il modo per aggirarlo è utilizzare invece il comando WordBasic.NextWindow.
_Nota: _
Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti WordTips), ho preparato una pagina speciale che include informazioni utili.
WordTips è la tua fonte di formazione economica su Microsoft Word.
(Microsoft Word è il software di elaborazione testi più popolare al mondo.) Questo suggerimento (972) si applica a Microsoft Word 97, 2000, 2002 e 2003.