макрос для чтения текста голосом

[eaeases]

Здравствуйте.

Помогите пожалуйста решить задачку. Дело вот в чем:
Есть файл Word с картинками. ( или картинки лежат отдельно в папке ) Текс разбит на абзацы и под каждым абзацем находится картинка.

Так же есть программа которая воспроизводит текст голосом. Эта программа встраивает в Word свои надстройки. Они ни где не прописываются, есть только файл .dll, через который программа встраивается в надстройки ворда. Запустить ее через макрос у меняне получилось.

Нужно создать макрос который при запуске будет выделять текст и отправлять программе для воспроизведения, а картинки показываться на экране. После прочтения абзаца выделение снимается, и вся процедура
повторяется заново для следующего абзаца и изображения.

Подскажите пожалуйста, как это можно сделать.

[raxp]

можно использовать агента для чтения голосом, и в макросы он хорошо вписывается.

[eaeases]

что за агент? напишите подробнее пожалуйста

[raxp]

http://www.google.ru/search?client=o...hannel=suggest

Set myagent = CreateObject("Agent.Control.2") 
 myagent.Connected = True 
 myagent.Characters.Load"0" 
 myagent.Characters("0").MoveTo 514, 220 
 myagent.Characters("0").Show 
 myagent.Characters("0").Play "DoMagic1" 
 myagent.Characters("0").Play "DoMagic2" 
 myagent.Characters("0").Speak " Это пример использование помощника средствами VBS" 
 myagent.Characters("0").MoveTo 926, 591 
 myagent.Characters("0").Speak "До свидания!" 
 myagent.Characters("0").Play "Hide" 
Dim WshShell 
      Set WshShell = WScript.CreateObject("WScript.Shell") 
      WScript.sleep 15000

[Aent]

К сожалению, в Windows 7 MS Agent исключен.
http://support.microsoft.com/kb/969168
На самом деле, нужен не агент а поддержка SAPI и какой нибудь русский Text-To-Speech энжин.
Ссылки на них можно найти на страничке программы Говорилка.
http://www.vector-ski.ru/vecs/govori...ad.htm#engines
Весьма вероятно, что вам потребуется и словарик для коррекции речевого синтеза
http://www.vector-ski.ru/vecs/govorilka/dic.htm

Set objVoice=CreateObject("SAPI.SpVoice") 'cоздаём объект 
Set objVoice.Voice = objVoice.GetVoices.Item(1) 'Выбираем первый голос
objVoice.Speak "Приветик!"  'Произносим текст

[raxp]

1- TC не упомянул за ось;
2- вот именно, SAPI ...агентом удобнее пользоваться плюс визуальность.

[Ципихович Эндрю]

Aent , жаль, что Агент урезали
у меня Item(1) отсутствует, но есть Item(0), говорит на английском, как зделать на русском языке
и как узнать сколько их Itemов и меня есть на компе, чтобы опробовать их???, я попробовал 1, 2, 3, 4, 5 - нет таких Спасибо

[raxp]

как сделать на русском языке

поставить русский движок.

[eaeases]

Теперь понятно, почему у меня на семерке MS Agent не запускался.

Aent все получилось, поставил движок Acapela Infovox Desktop и запустил макрос.

1. Как сделать так чтобы, при запуске макроса начиналось чтение всего текста документа, а не отдельной фразы.

2. Еще поставил TextAloud, она воспроизводит текст голосом и встраивается в word. При воспроизведении она выделяет текст и проговаривает его, есть выделение по словам, предложениям и абзацам.

Идея такая: при выделении текста по абзацам запускается макрос на показ картинки и пока читается текст на экране показывается картинка, при выделении следующего абзаца другая картинка. Возможно ли это??

[Aent]

1) По поводу количества голосов.
Как ни "удивительно" .GetVoices.Count …
Открою страшную тайну: свойство Count присутствует практически у всех нормальных коллекций.
2) По поводу чтения всего текста.
Идите в цикле по параграфам. Перед началом воспроизведения текста параграфа
Позиционируйтесь на рисунок (если он присутствует) и растягивайте его размеры на экран - или показывайте любым иным доступным вам образом.
После демонстрации изображения получайте ранг и текст параграфа.
Передавайте текст подпрограмме воспроизведения с ожиданием конца
проговора текста.
3) TextAloud шареварный на 15 дней …