Текст в речь в 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
Источник