Zastępstwo tekstu na mowę programu Word

3

Wydaje się, że Microsoft zdecydował się na usunięcie tekstu na mowę z programu Word 2007. Czy istnieje porządna wymiana, najlepiej nie wymagająca osobnej aplikacji? Chciałbym, żeby czytał bezpośrednio ze słowa.

To również nie jest pytanie o dostępność. Chciałbym tylko móc usłyszeć to, co na głos piszę. Sprawia, że ​​słabe sformułowanie staje się bardziej oczywiste.

Sean Edwards
źródło
To nie odpowiada na twoje pytanie, więc opublikuję je jako komentarz, ale Microsoft usunął TTS z Office 2007, ponieważ jest teraz dołączony do Windows Vista i nowszych. Jednak dla tych z nas, którzy używają systemu Windows XP z pakietem Office 2007, nie mamy TTS. Jedno obejście, które znalazłem, to „zainstalować” pakiet Office 2003, ale wykonać niestandardową instalację. Wykonując tę ​​niestandardową instalację, możesz odłączyć wszystkie aplikacje pakietu Office i zainstalować tylko moduł TTS.
th3dude
Gdzie to teraz jest? Używam Windows 7, więc nie powinno to być dla mnie problemem, prawda?
Sean Edwards
Wyszukaj „tekst na mowę” w W7 Help and Support, a zostaniesz przekierowany do Narratora - funkcji zamiany tekstu na mowę wbudowanej w W7 ...
Gcoupe

Odpowiedzi:

5

Tak, Microsoft zrobił to ponownie. Tekst na mowę został usunięty z programu Word 2007.
Na szczęście istnieje dość prosty sposób na zaimplementowanie go za pomocą odrobiny kodu makro.

Artykuł Słowo tekst na mowę opisuje, jak dodać do Worda dwa przyciski używające makr VBA, SpeakText i StopSpeaking.

image

harrymc
źródło
1

Tekst na mowę w MS Word 2007

Poniżej znajdują się makra umożliwiające włączenie syntezatora mowy. Makra te należy umieścić w „normal.dot”, więc zostanie załadowane wraz z aplikacją MS Word.

Naciśnij kombinację klawiszy Alt + F11, aby przejść do edytora makr i wkleić ten kod. Musisz dodać trzy przyciski do paska narzędzi szybkiego dostępu. Możesz to zrobić, klikając małą strzałkę w dół z napisem „Dostosuj pasek narzędzi szybkiego dostępu” na pasku tytułu słowa MS, w którym znajdziesz przyciski Zapisz, Cofnij i Ponów. Wybierz „Więcej poleceń” z menu rozwijanego, aby otworzyć okno „Opcje programu Word”. Wybierz „Dostosuj” w menu po lewej stronie, a „Wybierz polecenia z” należy ustawić na „Makra”. Dodaj wszystkie trzy makra, aby utworzyć trzy przyciski na pasku narzędzi szybkiego dostępu. Teraz twoje słowo MS jest włączone 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

Źródło


źródło
Doskonały! Molly, link nie działa.
Nicu Zecheru
hmm, jeśli odnosisz się do linku źródłowego w moim poście, działa dobrze dla mnie w 3 różnych przeglądarkach.
Nie działa dla mnie :(. Mam system Windows 8. Nie daje nawet komunikatu o błędzie. Po prostu nie czyta niczego na głos ... Nawet aktywowałem Microsoft Speech Object Library
mcExchange
0

Zawsze możesz spróbować skopiować / wkleić tekst do Przeczytaj proszę . Ma darmowe i płatne wersje, a darmowe wersje działają świetny! Po prostu zainstaluj, skopiuj wklej swój tekst, a wyłączysz się! :)

studiohack
źródło