Hvordan lage tekst til tale Presentasjoner

Hvordan lage tekst til tale Presentasjoner


En tekst til tale (TTS) applikasjonen lar voice-over fortellerstemme uten behov for å ta opp lyd. Fremgangsmåten omfatter syntetisk tale som trekker ord fra en lagret database. Den gjør en presentasjon dynamisk for alle i publikum, inkludert de med synsvansker. Microsoft tilbyr en modul i deres Excel program som er i stand til tekst til tale konverteringer. Du kan sette inn denne modulen inn i andre Office Suite-programmer og gi TTS muligheter for dine presentasjoner.

Bruksanvisning

PowerPoint

1 Åpne PowerPoint på datamaskinen.

2 Trykk "Alt" + "F11" tastene på tastaturet. Dette åpner redaktør for Visual Basic.

3 Klikk "Sett inn" øverst på redigeringsskjermen og velg "Module".

4 Kopier koden under inn i modulen skjermen.


Sub demoTTS ()

'Declare and create an Excel object.
Dim XL As Excel.Application
Set XL = CreateObject("Excel.Application")

ActivePresentation.SlideShowSettings.Run

Med SlideShowWindows (1) .Utsikten
'Følgende er sagt på første bilde:
XL.Speech.Speak "Velkommen til min presentasjon."
"Endre å skyve to, og deretter si følgende to setninger:
.next
XL.Speech.Speak "Dette er et eksempel på hvordan du kan lage et Excel Application objekt."
XL.Speech.Speak "Vi kan bruke Excel-objektmodellen til å påberope Tekst til tale."

"Lukk Excel objekt og sette objektet til ingenting.
XL.Quit
Sett XL = Nothing

«Avslutt lysbildefremvisning.
.Exit
End With

End Sub


5 Velg "Referanser" fra redaktørens "Verktøy" -menyen.

6 Velg "Microsoft Excel 10,0 Object Library" under alternativene i "Tilgjengelige referanser." Klikk "OK" for å lukke vinduet.

7 Klikk på "Verktøy" -menyen som ligger øverst i vinduet.

8 Pek på "makro" og klikk på "Sikkerhet".

9 Flytt til fanen "Security Level" og velg "Medium". Klikk på "OK" -knappen.

10 Start PowerPoint og forhåndsvise dokumentet for å se TTS i aksjon.

Ord

11 Åpne Word på datamaskinen.

12 Følg trinn 2 og 3 i del 1, men i Word-programmet.

1. 3 Kopier følgende kode i Visual Basic Editor.


Sub TTS ()
"Erklærer og skape et Excel objekt.

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


14 Fullfør modulen innsatsen ved hjelp av trinn 5 til 9 i punkt 1. Microsoft Office er utformet slik at de samme handlingene fungere på alle programmene. Hva legger en modul til PowerPoint fungerer også i Word.

15 Start Word på datamaskinen og forhåndsvise dokumentet.