Aprire il cassetto dell'unità cd-rom tramite VBA in Microsoft Word

Questo trucco ha il compito di spiegare come aprire il cassetto dell'unità cd-rom tramite l'api mciSendString

Inseriamo in una pagina word un pulsante, questo avviene tramite la barra di Visual basic (menu visualizza->barra degli strumenti,-> visual basic) la pagina dovrebbe avere il seguente aspetto:

Facciamo doppio click sul pulsante, verrà aperta la finestra dell'editor di Vba, nella posizione in cui avviene l'evento click del pulsante.

Ci possiamo in alto sopra a tale evento, e scriviamo a livello generale la seguente dichiarazione di api.

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long

Esso ha il compito di richiamare la funzione mciSendString della dll di sistema.

Nell'evento click del pulsante scriviamo il seguente codice.:

Dim Strmssg, Strdriveletter As String

Dim ReturnValue As Long
Strdriveletter = "d:\"
ReturnValue = mciSendString("open " & Strdriveletter & _
" Type cdaudio Alias cd", Strmssg, 255, 0)
ReturnValue = mciSendString("set cd door open", _
vbNullString, 0, 0)
'chido il cd
ReturnValue = mciSendString("close cd", 0&, 0, 0)

A questo punto, salviamo tutto, chiudiamo la finestra dell'editor di vba,

Per testarlo, dobbiamo togliere la modalità di progettazione, questo avviene facendo click sull'icona di una squadra e matita della barra di visual basic, ora se facciamo click sul pulsante inserito nel documenti, aprirà il cassetto dell'unità cd-rom.

Download esempio