Замена текста в речь для Word

28917
Sean Edwards

Кажется, что Microsoft решила удалить текст в речь из Word 2007. Есть ли достойная замена, желательно, которая не требует отдельного приложения? Я хотел бы, чтобы это читалось прямо из слова.

На самом деле это не вопрос доступности. Я просто хотел бы услышать, что я пишу вслух. Это делает плохую формулировку более очевидной.

3
Это не отвечает на ваш вопрос, поэтому я опубликую его как комментарий, но Microsoft удалила TTS из Office 2007, потому что теперь она включена в Windows Vista и выше. Однако для тех из нас, кто работает под управлением Windows XP с Office 2007, мы остались без TTS. Я нашел один обходной путь: «установить» Office 2003, но выполнить выборочную установку. Выполнив эту выборочную установку, вы можете отключить все приложения Office и установить только модуль TTS. th3dude 14 лет назад 0
Где это сейчас? Я использую Windows 7, так что это не должно быть проблемой для меня, не так ли? Sean Edwards 14 лет назад 0
Ищите «текст в речь» в справке и поддержке W7, и вы будете перенаправлены на диктор - функция преобразования текста в речь, встроенная в W7 ... Gcoupe 14 лет назад 0

3 ответа на вопрос

5
harrymc

Да, Microsoft сделала это снова. Преобразование текста в речь было удалено из Word 2007.
К счастью, есть довольно простой способ реализовать его с небольшим количеством макрокода.

В статье Слово в речь описывает, как добавить в Word две кнопки с помощью макросов VBA, SpeakText и StopSpeaking.

образ

1

Текст в речь в MS Word 2007

Ниже приведены макросы для включения TTS. Эти макросы должны быть помещены в «normal.dot», чтобы он загружался вместе с приложением MS Word.

Нажмите Alt + F11, чтобы перейти в редактор макросов и вставьте этот код. Вам нужно добавить три кнопки на панель быстрого доступа. Вы можете сделать это, нажав маленькую стрелку вниз, указывающую «Настроить панель быстрого доступа» в строке заголовка MS Word, где вы найдете кнопки сохранения, отмены и возврата. Выберите «Больше команд» в раскрывающемся меню, чтобы открыть окно «Параметры Word». Выберите «Настроить» в левом меню, а «Выбор команд из» должен быть установлен в «Макросы». Добавьте все три макроса, и это создаст три кнопки на панели быстрого доступа. Теперь ваше слово MS включено TTS.

Option Explicit Dim speech As SpVoice Dim i As Integer  Sub SpeakText() On Error Resume Next If i = 0 Then Set speech = New SpVoice If Len(Selection.Text) > 1 Then 'speak selection speech.Speak Selection.Text, _ SVSFlagsAsync + SVSFPurgeBeforeSpeak Else 'speak whole document speech.Speak ActiveDocument.Range(0, _ ActiveDocument.Characters.Count).Text, _ SVSFlagsAsync + SVSFPurgeBeforeSpeak End If Else If i = 1 Then speech.Resume i = 0 End If End If End Sub  Sub StopSpeaking() On Error Resume Next speech.Speak vbNullString, SVSFPurgeBeforeSpeak Set speech = Nothing i = 0 End Sub  Sub PauseSpeaking() On Error Resume Next If i = 0 Then speech.pause i = 1 Else If i = 1 Then speech.Resume i = 0 End If End If End Sub 

Источник

Отлично! Молли, ссылка не работает. Nicu Zecheru 14 лет назад 0
хм, если вы ссылаетесь на ссылку на источник в моем сообщении, она отлично работает в 3 разных браузерах. 14 лет назад 0
У меня не работает :(. У меня Windows 8. Она даже не выдает сообщение об ошибке. Она просто ничего не читает вслух ... Я даже активировал `Microsoft Speech Object Library` mcExchange 8 лет назад 0
0
studiohack

Вы всегда можете попробовать скопировать / вставить текст в ReadPlease . У него есть бесплатные и платные версии, и бесплатные версии прекрасно работают ! Просто установите, скопируйте текст, и все готово! :)