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

Traduções de Artigos Traduções de Artigos
Artigo: 211842 - Ver produtos para os quais este artigo se aplica.
Este artigo foi arquivado. Este artigo é oferecido "tal como está" e deixará de ser actualizado.
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.

Mais Informação

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:
212536OFF2000: 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: 23 de fevereiro de 2014 - Revisão: 3.2
A informação contida neste artigo aplica-se a:
  • Microsoft Word 2000 Standard Edition
Palavras-chave: 
kbnosurvey kbarchive 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