Como automatizar o Excel texto para voz noutro programa do Office

Traduções de Artigos Traduções de Artigos
Artigo: 287120 - Ver produtos para os quais este artigo se aplica.
Expandir tudo | Reduzir tudo

Nesta página

Sumário

Este artigo passo a passo explica como pode utilizar a funcionalidade de texto para voz do Microsoft Excel noutros programas, incluindo o Microsoft Word, Microsoft PowerPoint e Microsoft Outlook.

Microsoft Excel é o programa apenas do Microsoft Office XP que tem capacidades incorporadas texto para voz (TTS). Este artigo explica como pode utilizar a automatização OLE para aceder programaticamente o modelo de objecto do Excel e utilizar a funcionalidade de texto para voz noutros programas.

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.

Utilizar texto em voz no PowerPoint

O exemplo seguinte utiliza o modelo de objecto do Excel para aceder a texto para voz de uma apresentação do PowerPoint. Este procedimento demonstra como referenciar e criar um objecto do Excel para poder utilizar o objecto de voz .

Inserir um módulo uma apresentação do PowerPoint

  1. Abre uma apresentação do PowerPoint.
  2. Prima ALT+F11 para iniciar o Editor do Visual Basic.
  3. No menu Inserir , clique em módulo .
  4. Escreva ou copie e cole no módulo o código de exemplo que consta posteriormente nesta secção.

Adicionar uma referência para o Excel 10 biblioteca de objectos

  1. No Editor do Visual Basic, aponte para referências no menu Ferramentas .
  2. Em Referências disponíveis , clique para seleccionar a caixa de verificação do Microsoft Excel 10.0 Object Library e, em seguida, clique em OK .

Procedimento Sub para automatizar o Excel texto para voz a partir do PowerPoint

O exemplo seguinte pressupõe que a apresentação do PowerPoint tem dois diapositivos.
Sub demoTTS()
    
    'Declare and create an Excel object.
    Dim XL As Excel.Application
    Set XL = CreateObject("Excel.Application")
    
    ActivePresentation.SlideShowSettings.Run
 
    With SlideShowWindows(1).View
        'The following is said on the first slide:
        XL.Speech.Speak "Welcome to my presentation."
        'Change to slide 2, and then say the following two sentences:
        .Next
        XL.Speech.Speak "This is an example of how to create an Excel Application object."
        XL.Speech.Speak "We can use Excel's object model to invoke Text to Speech."
        
        'Close the Excel object and set the object to nothing.
        XL.Quit
        Set XL = Nothing
        
        'Exit the slideshow.
        .Exit
    End With
    
End Sub

				
Nota : PowerPoint segurança está definida em Alta por predefinição. As macros do Visual Basic não assinadas não são executadas nesta definição. Altere o nível de segurança macro para Média , seguindo estes passos:
  1. No menu Ferramentas , aponte para macro e, em seguida, clique em segurança .
  2. No separador Nível de segurança , clique para seleccionar a Média e, em seguida, clique em OK .
  3. No menu ficheiro , clique em Sair para sair do PowerPoint.

    Nota : É necessário sair e reiniciar PowerPoint para a alteração do nível de segurança tenham efeito.

Utilizar texto em voz no Word

O exemplo seguinte utiliza o modelo de objecto do Excel para aceder a texto para voz de um documento do Word. Este procedimento demonstra como referenciar e criar um objecto do Excel para poder utilizar o objecto de voz .

Inserir um módulo no Word

  1. Abra um documento do Word.
  2. Prima ALT+F11 para iniciar o Editor do Visual Basic.
  3. No menu Inserir , clique em módulo .
  4. Escreva ou copie e cole no módulo o código de exemplo que consta posteriormente nesta secção.

Adicionar uma referência para o Excel 10 biblioteca de objectos

  1. No Editor do Visual Basic, aponte para referências no menu Ferramentas .
  2. Em Available References , seleccione a caixa de verificação do Microsoft Excel 10.0 Object Library e, em seguida, clique em OK .

Procedimento Sub para automatizar o Excel texto para voz a partir do Word

O seguinte exemplo assume que escreve texto no Word documento e, em seguida, seleccione o texto antes de executar o procedimento.
Sub TTS()
   'Declare and create an Excel object.
      Dim XL_tts As Excel.Application
      Set XL_tts = CreateObject("Excel.Application")
      XL_tts.Speech.Speak Selection
      XL_tts.Quit
      Set XL_tts = Nothing
End Sub
				
Nota : segurança do Word está definida em Alta por predefinição. As macros do Visual Basic não assinadas não são executadas nesta definição. Altere o nível de segurança macro para Média , seguindo estes passos:
  1. No menu Ferramentas , aponte para macro e, em seguida, clique em segurança .
  2. No separador Nível de segurança , clique para seleccionar a Média e, em seguida, clique em OK .
  3. No menu ficheiro , clique em Sair para sair do Word.
Nota : É tem saia e reinicie o Word para a alteração do nível de segurança tenham efeito.

REFERÊNCIAS

Para obter informações adicionais, clique no número de artigo existente abaixo para visualizar o artigo na base de dados de conhecimento da Microsoft:
277808XL2002: "Run-time error 1004" quando tenta utilizar o texto para voz de macro
Para obter informações adicionais sobre como obter ajuda com o Visual Basic for Applications, clique no número de artigo que se segue para visualizar o artigo na Microsoft Knowledge Base:
163435Recursos de programação para o Visual Basic for Applications

Propriedades

Artigo: 287120 - Última revisão: 23 de outubro de 2006 - Revisão: 3.1
A informação contida neste artigo aplica-se a:
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Outlook 2002 Standard Edition
  • Microsoft PowerPoint 2002 Standard Edition
  • Microsoft Word 2002 Standard Edition
Palavras-chave: 
kbmt kbautomation kbenablesight kbhowtomaster KB287120 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: 287120

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com