WD2000: Como reproduzir um ficheiro de som .wav utilizando uma macro

Artigo: 211842 - Ver produtos para os quais este artigo se aplica.

Ver isen��o de responsabilidades para tradu��o autom�tica

Clique aqui para exibir o artigo traduzido e o artigo original em ingl�s, lado a lado.

Expandir tudo | Reduzir tudo

Sum�rio

O exemplo de macro do Microsoft Word seguinte demonstra como pode utilizar o Visual Basic for Applications para reproduzir um ficheiro de som .wav.

A Microsoft fornece exemplos de programa��o apenas, para fins sem garantia expressa ou impl�cita. Isto inclui, mas n�o est� limitado a, as garantias impl�citas de comercializa��o ou adequa��o a um fim espec�fico. Este artigo pressup�e que est� familiarizado com a linguagem de programa��o apresentada e as ferramentas que s�o utilizadas para criar e depurar procedimentos. Os t�cnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas n�o modificar�o estes exemplos para proporcionarem funcionalidades adicionais nem criar�o procedimentos adaptados �s necessidades espec�ficas do utilizador.
Para mais informa��es sobre como utilizar o c�digo de exemplo neste artigo, clique no n�mero de artigo existente abaixo para visualizar o artigo na base de dados de conhecimento da Microsoft:

212536

(http://support.microsoft.com/kb/212536/EN-US/ )

OFF2000: Como executar c�digos de exemplo a partir de artigos da base de dados de conhecimento da Microsoft

A macro seguinte utiliza o GetWindowDirectory de API do Windows para obter o direct�rio do Windows. Em seguida, utiliza sndPlaySound API do Windows para reproduzir o ficheiro himes.wav localizado no direct�rio.

Private Declare Function sndPlaySound Lib "winmm.dll" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) _
As Long

Private Declare Function GetWindowsDirectoryA Lib "Kernel32" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long

Nota : Coloque as instru��es Declare privada na sec��o General Declarations do Visual Basic para janela Editor de aplica��es.

Sub PlayWav()
   Dim sBuf As String
   Dim cSize As Long
   Dim retval As Long
   Dim Windir As String

   'Create a variable large enough to store the Windows path.
   sBuf = String(255, 0)
   cSize = 255

   'Get Windows Directory
   retval = GetWindowsDirectoryA(sBuf, cSize)

   'Strip buffer from Windows directory
   Windir = Left(sBuf, retval)

   'Load and Play the sound.
   N = sndPlaySound(Windir + "\Media\Chimes.wav", 0)

End Sub

Propriedades

Artigo: 211842 - �ltima revis�o: quarta-feira, 11 de Outubro de 2006 - Revis�o: 3.2

A informa��o contida neste artigo aplica-se a:

Microsoft Word 2000 Standard Edition

kbmt kbdtacode kbhowto kbmacro kbprogramming kbsound KB211842 KbMtpt

Tradu��o autom�tica

IMPORTANTE: Este artigo foi traduzido por um sistema de tradu��o autom�tica (tamb�m designado por Machine translation ou MT), n�o tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplica��es (MT) e artigos traduzidos por tradutores profissionais. O objectivo � simples: oferecer em Portugu�s a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradu��o autom�tica n�o � sempre perfeita. Esta pode conter erros de vocabul�rio, sintaxe ou gram�tica? erros semelhantes aos que um estrangeiro realiza ao falar em Portugu�s. A Microsoft n�o � respons�vel por incoer�ncias, erros ou estragos realizados na sequ�ncia da utiliza��o dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualiza��es frequentes ao software de tradu��o autom�tica (MT). Obrigado.

Clique aqui para ver a vers�o em Ingl�s deste artigo: 211842

(http://support.microsoft.com/kb/211842/en-us/ )