Les documents Word peuvent contenir un peu plus que du texte. Vous pouvez également inclure des graphiques et des objets multimédias, tels que des clips audio. La manière normale de lire un clip audio est de double-cliquer sur son icône dans le document. Que faire si vous souhaitez que la lecture du clip audio démarre lorsque vous ouvrez le document pour la première fois, sans avoir à double-cliquer?

La meilleure façon d’aborder ce problème consiste à utiliser une macro. Vous pouvez facilement créer une macro qui s’exécute automatiquement lorsque vous ouvrez un document et la macro peut lire le fichier audio. Ce qui suit est une macro très simple qui fait exactement cela:

Private Sub Document_Open()

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

La macro suppose que le clip audio est le tout premier objet qui a été inséré, en ligne, dans votre document. Sinon, vous devrez déterminer le numéro d’index du clip, dans la collection InlineShapes, et utiliser cette valeur d’index dans la macro.

Le cœur de la macro utilise la méthode DoVerb, qui est une manière générique d’exécuter différentes actions sur un objet OLE (dans ce cas, le fichier son). Le paramètre VerbIndex détermine l’action qui est exécutée.

Dans cet usage, VerbIndex est défini égal à wdOLEVerbPrimary, ce qui signifie «l’action principale pour un objet OLE de ce type». Puisqu’il s’agit d’un fichier audio, l’action principale est de le lire.

Une meilleure approche consiste peut-être à utiliser les fonctionnalités de signets de Word à votre avantage. Vous pouvez utiliser un signet pour identifier le clip audio que vous souhaitez lire, puis utiliser ces informations dans la macro pour déterminer ce qui est lu. Considérez la macro suivante:

Private Sub Document_Open()

Selection.GoTo What:=wdGoToBookmark, Name:="WavSound"

Selection.InlineShapes(1).OLEFormat.DoVerb VerbIndex:=wdOLEVerbPrimary End Sub

Cette macro suppose également que le clip audio est placé en ligne dans votre document. Cependant, le clip doit être marqué en utilisant le nom WavSound. La macro sélectionne ce signet (le clip audio) et le lit à l’aide de la méthode DoVerb.

Ces approches fonctionnent correctement si vous souhaitez lire un clip audio qui fait partie de votre document. Vous souhaiterez peut-être lire un clip audio qui ne fait pas partie du document. De cette façon, l’icône du clip audio n’apparaît pas dans le document et gâche l’apparence du document.

Pour ce faire, demandez à l’API Windows de jouer le son pour vous. Cette méthode fonctionne lorsque vous souhaitez accéder à un fichier audio dont vous savez qu’il se trouve déjà sur l’ordinateur, à condition que le système Windows Media Player soit également installé. L’exemple suivant devrait fonctionner sur un système Windows XP. (La macro peut ou non fonctionner sur un système Vista, selon la configuration du système.)

Private Declare Function PlaySound Lib "winmm.dll" _   Alias "PlaySoundA" (ByVal IpszName As String, _   ByVal hModule As Long, ByVal dsFlags As Long) As Long

Private Sub Document_Open()

PlaySound "c:\windows\media\tada.wav", ByVal0&, &H1 End Sub

La macro Document_Open s’exécute lorsque le document est ouvert, mais elle appelle la fonction PlaySound. Cette fonction est définie dans la déclaration privée comme un alias pour la méthode PlaySoundA de winmm.dll. Cette méthode ne lance pas le lecteur multimédia lui-même et n’insère rien dans le corps du document.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (3902) s’applique à Microsoft Word 97, 2000, 2002 et 2003.