Automatisk Sound Clips

Word-dokumenter kan indeholde en hel del mere end tekst. Du kan også medtage grafik og multimedie objekter, såsom lydklip. Den normale måde, du spiller et lydklip er at dobbeltklikke på dens ikon i dokumentet. Hvad hvis du ønsker lydklippet at begynde at spille, når du først åbner dokumentet, uden at det er nødvendigt at dobbeltklikke på?

Den bedste måde at gribe dette problem er ved anvendelse af en makro. Du kan nemt oprette en makro, der automatisk kører, når du åbner et dokument, og makroen kan afspille lydfilen. Det følgende er en meget enkel makro, der gør netop det:

Private Sub Document_Open ()
ThisDocument.InlineShapes (1) .Select
Selection.InlineShapes (1) .OLEFormat.DoVerb VerbIndex: = wdOLEVerbPrimary
End Sub

Makroen forudsætter, at lydklippet er den allerførste objekt, der blev indsat, inline, i dokumentet. Hvis ikke, skal du finde ud af indekstal for klippet inden for InlineShapes indsamling, og bruge denne indeksværdi i makroen.

Hjertet i makroen bruger DoVerb metoden, som er en generisk måde at udføre forskellige handlinger på et OLE-objekt (i dette tilfælde, lydfilen). Den VerbIndex parameter bestemmer den handling, der er udført. I denne brug, er VerbIndex sat lig med wdOLEVerbPrimary, som betyder "den primære handling for et OLE-objekt af denne type." Da dette er en lydfil, den primære handling er at spille det.

Måske en bedre tilgang er at bruge bogmærke kapaciteter af Word til din fordel. Du kan bruge et bogmærke til at identificere lydklippet, du vil afspille, og derefter bruge disse oplysninger i makroen til at afgøre, hvad der er spillet. Overvej følgende makro:

Private Sub Document_Open ()
Selection.GoTo Hvad: = wdGoToBookmark, Name: = "WavSound"
Selection.InlineShapes (1) .OLEFormat.DoVerb VerbIndex: = wdOLEVerbPrimary
End Sub

Denne makro forudsætter endvidere, at lydklippet placeres inline i dokumentet. Imidlertid bør klippet bogmærke bruge navnet WavSound. Makroen vælger at bogmærke (lydklippet) og spiller det ved hjælp af DoVerb metoden.

Disse metoder fungerer fint, hvis du vil afspille et lydklip, der er en del af dit dokument. Du kan afspille et lydklip, der ikke er en del af dokumentet. På den måde, er lydklippet ikon ikke vises i dokumentet, og rod op udseendet af dokumentet.

Den måde du opnå dette er at bede Windows API til at afspille lyden for dig. Denne metode virker, når du vil have adgang til en lydfil, du ved, er allerede på computeren, så længe systemet har også Windows Media Player installeret. Følgende eksempel bør arbejde på en Windows XP-system. (Makroen måske eller måske ikke arbejde på en Vista-system, afhængigt af hvordan systemet er konfigureret.)

Privat fastslås Funktion playSound Lib "winmm.dll" _
Alias ​​"PlaySoundA" (ByVal IpszName As String, _
ByVal hModule så længe, ​​ByVal dsFlags så længe), så længe

Private Sub Document_Open ()
PlaySound "C: \ windows \ media \ tada.wav", ByVal0 &, & H1
End Sub

De Document_Open makro kører, når dokumentet åbnes, men det kalder playSound funktionen. Denne funktion er defineret i den private erklæring som et alias for PlaySoundA fremgangsmåden winmm.dll. Denne metode er ikke starte medieafspilleren selv, og det ikke indsætte noget i selve dokumentet.

WordTips er din kilde til omkostningseffektiv Microsoft Word træning. (Microsoft Word er det mest populære tekstbehandlingsprogram i verden.) Dette tip (3902) gælder for Microsoft Word 97, 2000, 2002, og 2003.


© 2020 Zajacperrone.com | Contact us: webmaster# zajacperrone.com