MS Excel: Editor hlasové syntézy (pro vpm, poi, apod.)

[Path]

Aplikace: Ms Excel - SAPI Example

Popis: Jednoduchý editor pro přečtení nebo export hlasové syntézy do souboru v aplikaci MS Excel.

Verze: 1.00 (7. 11. 2010)
Autor: http://www.path.cz

Vytvořil jsem velice jednoduchý editor pro čtení/vytváření souboru wav z instalovaných hlasových syntéz, zvláště pro potřeby výroby hlasu nebo ozvučení POI. Pro práci s hlasem sice existují komfortní programy jako Govorilka nebo DSpeech, ale pro dávkové vytváření audio souborů mi žádný z nich nevyhovoval.


Co to umí

* Přečíst vybrané nebo všechny buňky sloupce podle nastavení (typ hlasu, hlasitost, tempo, TTS tagy)
* Exportovat vybrané buňky nebo celý sloupec do wav včetně možnosti volby výstupní kvality.


Kdo to využije

* Všichni, kdo chtějí využít hlasovou syntézu pro ozvučení POI.
* Všichni, kdo chtějí využít hlasovou syntézu pro výrobu vlastního hlasu.
* Nebo například ti, co se šťourají v Excelu a chtějí nastudovat makra VBA


Co budete potřebovat

Určitě nainstalovaný Excel a instalovanou hlasovou syntézu. Z českých můžete nainstalovat syntézy např. od EPOS (tady je ukázka) nebo ještě lépe Elišku od společnosti Acapela Group, s jejíž pomocí jsem vyrobil hlas Eliška pro přijímače Garmin.

Pro instalaci Elišky musíte nejprve stáhnout a nainstalovat demo aplikace Infovox Desktop a pak stáhnou a nainstalovat samotnou Elišku.

Až budete mít hlasové syntézy v PC nainstalované, spusťte Excel, klepněte v MENU na tlačítko Aktualizovat seznam a v listě Text nadefinujte fráze podle libosti.

Download:

SAPI_Example_v1.00.rar

(Mirror)

[Garmin OC Letňany]

moc hezká práce! Že bych si střihnul ještě jednou přepsat Elišku?

[Path]

Mno, mělo by to teď být jednodušší. Já Elišku dělal v Govorilce a ukládání do wavů byla pořádná opičárna.

[zdzd]

Excel havaruje na příkazu:

oFSTRM.Open sFile, SSFMCreateForWrite, True ' otevřeme stream pro zápis do souboru

Chyba č.5 Invalid procedura call or argument

[Path]

Zajímavé, jakou verzi OS a Excelu máte? Máte instalované SAPI? Nezkoušíte zapsat audio do složky, do které VBA nemá oprávnění zápisu? Zkoušel jste cílovou složku změnit?

A ještě zkuste v Excelu zjistit, zda je oFSTRM objekt:

V Excelu otevřete editor VBA (ALT+F11). V modulu ModSAPI umístěte Breakpoint (F9) v tomto řádku:

vba Code: Vybrat vše

oFSTRM.Open sFile, SSFMCreateForWrite, True        ' otevřeme stream pro zápis do souboru

a znovu spusťte proceduru pro zápis do wav. Až se proces zastaví na výše uvedeném řádku, napište v okně Immediate (zobrazíte CTRL+G) následující kód a potvrďte klávesou Enter:

? isobject(oFSTRM)

Pokud se vypíše True, pak je objekt oFSTRM definovaný správně (viz obr.)


Pro jistotu ještě zjistěte hodnotu konstanty SSFMCreateForWrite, která by měla být 3:

? SSFMCreateForWrite


Hodnotu proměnné sFile vypíšete obdobně:

? sFile

[zdzd]

Je to na XP a Office 2003 i 2010, na dvou různých počítačích.

Změna cílového adresáře nemá vliv.

Immediate:
? isobject(oFSTRM)
true
? SSFMCreateForWrite
3
? sFile
D:\UZIV\ZD\Garmin\Hlasy\Generovani\POI\myfile_008.wav


Vykonání příkazu
oFSTRM.Open sFile, SSFMCreateForWrite, True ' otevřeme stream pro zápis do souboru

Způsobí skok na
ErrHandler:
Select Case Err.Number

kde Err.Number je 5

Tak nevím. Nepotřebuje to nějaký kus C++ ?

Jinak na třetím počítači s W7 + Office 2010 to chodí, až na nadávky, že některý jazyk není licencován.

[Path]

Nemám to na čem vyzkoušet, XP už delší dobu nemám, spokojeně jedu na Win 7. Jakou máte verzi knihovny SAPI.dll?

Co se týká komponent C++ nenapadá mě nic jiného než:
Microsoft Visual C++ 2005 SP1 Redistributable Package (x86)
Microsoft Visual C++ 2008 Redistributable Package (x86)
Microsoft Visual C++ 2010 Redistributable Package (x86)

A případně SAPI:
SAPI4
SAPI5

[zdzd]

Vzhledem k tomu, že mám i W7, přičemž u vás není možnost to zkoušet na něčem jiném, tak bych to dál neřešil.

Já těch pár textů převedu na W7 a pro ostatní je to upozornění, že na XP mohou mít problém, možná v závislosti na verzích jejich komponent.

Mrknu se spíše po tom, jak upravit makra tak, abych si mohl přímo napsat jména waw. Žádné z generování mi nevyhovuje. Ale nesmí to být více práce, než přejmenovat asi 20 souborů...

Díky za ochotu.

[Path]

A jaký potřebujete název souboru? Jinak náhradu názvu wav souboru řeší funkce fceGetCustomFileName (modul ModFunctions).

[zdzd]

Ručně napsané podle POI souborů. Nesedí to úplně na použitou frázi.