Word 97:
Abspielen von Klangdateien mit Hilfe von Makros
Nicht nur Windows und Word 97 begleiten Ihre Aktionen mit allerlei KlΣngen, auchMakros k÷nnen sich mit dem Abspielen von WAV-Dateien effektvoll in Szene setzen. Allerdings mu▀ man sich hierzu der Win-Api-Funktion »PlaySound« bedienen. Mit dieser Funktion kann man zum Beispiel einen Wecker programmieren, der als Wecksignal
eine Klangdatei abspielt. Starten Sie den Visual-Basic- Editor mit [Alt] [F11] und ÷ffnen Sie mit der [F7]-Taste das Code-Fenster. Mit Hilfe der rechten oberen Drop-down-Liste des Code-Fensters begeben Sie sich in den »(Deklarationen)«- Abschnitt. In diesem Bereich geben Sie die unten angefⁿhrten Befehle ein. Abschlie▀end speichern Sie mit [Strg] [S] und beenden den Editor. Den Wecker stellen Sie mit dem Aufruf des Makros »Wecker«; in das Makro-Menⁿ gelangen Sie mit [Alt] [F8]. Geben Sie dann die Weckzeit ein und klicken Sie zur BestΣtigung auf »OK«. Zu der angegebenen Zeit wird dann die Unterroutine »Sub Signal« mit dem Klang »erinner.wav« ausgefⁿhrt und eine Meldung gezeigt. Eventuell mⁿssen Sie die dritte Zeilevon »Sub Signal()«, die mit »R= PlaySound ...« beginnt, der Verzeichnisstruktur Ihres PC anpassen. Au▀erdem k÷nnen Sie auch eine andere Klangdatei als Wecksignal verwenden.
Visual-Basic-Code fⁿr einen Wecker unter Word 97:
Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, -
Sub Wecker()
Meldung = "Geben Sie eine Weckzeit ein:"
Zeit = InputBox(Meldung, "Wecker", Time)
If Zeit <> "" Then
Application.OnTime When:=Zeit, Name:="Signal"
End If
End Sub
Sub Signal()
Dim hModule As Long, dwFlags As Long, R As Long
R = PlaySound("c:\windows\media\office97\erinner.wav", hModule, dwFlags)
MsgBox "Es ist jetzt " & Time & " Uhr!", vbOKOnly, "Wecker"
End Sub
Bernd Schieferdecker