वर्ड के लिए टेक्स्ट-टू-स्पीच रिप्लेसमेंट


3

ऐसा लगता है कि माइक्रोसॉफ्ट ने वर्ड 2007 से टेक्स्ट-टू-स्पीच को हटाने का फैसला किया। क्या एक अच्छा प्रतिस्थापन है, अधिमानतः एक अलग आवेदन की आवश्यकता नहीं है? मैं इसे सीधे शब्द से पढ़ना चाहूंगा।

यह वास्तव में एक पहुंच का प्रश्न नहीं है। मैं बस इतना सुनना चाहूंगा कि मैं क्या लिखता हूं। यह खराब शब्दों को अधिक स्पष्ट बनाता है।


यह आपके प्रश्न का उत्तर नहीं देता है इसलिए मैं इसे एक टिप्पणी के रूप में पोस्ट करूंगा, लेकिन Microsoft ने TTS को कार्यालय 2007 से हटा दिया क्योंकि यह अब विंडोज विस्टा और अप के साथ शामिल है। हालाँकि, हम में से जो लोग Office 2007 के साथ Windows XP चला रहे हैं, हम TTS के बिना रह गए हैं। मुझे जो एक वर्कअराउंड मिला है वह है ऑफिस 2003 को 'इनस्टॉल' करना, लेकिन एक कस्टम इंस्टॉलेशन करना। इस कस्टम इंस्टॉलेशन को करने से, आप सभी Office ऐप्स को अनइंस्टॉल कर सकते हैं, और केवल TTS मॉड्यूल इंस्टॉल कर सकते हैं।
th3dude

यह अब कहाँ है? मैं विंडोज 7 चला रहा हूं, ताकि मेरे लिए यह समस्या न हो, क्या यह होना चाहिए?
Sean Edwards

W7 सहायता और समर्थन में "टेक्स्ट टू स्पीच" की खोज करें, और आपको नैरेटर को निर्देशित किया जाएगा - डब्ल्यूडब्ल्यूई के लिए निर्मित टेक्स्ट टू स्पीच फीचर
Gcoupe

जवाबों:


5

हाँ, Microsoft ने इसे फिर से किया। टेक्स्ट-टू-स्पीच को वर्ड 2007 से हटा दिया गया है।
सौभाग्य से मैक्रो कोड के साथ इसे लागू करने का एक आसान तरीका है।

लेख भाषण के लिए शब्द पाठ VBA मैक्रोज़, स्पीकटेक्स्ट और स्टॉपस्पीकिंग का उपयोग करके वर्ड टू बटन को जोड़ने का वर्णन करता है।

image


1

एमएस वर्ड 2007 में भाषण का पाठ

टीटीएस को सक्षम करने के लिए नीचे मैक्रोज़ हैं। इन मैक्रोज़ को "normal.dot" में डाला जाना चाहिए, ताकि यह एमएस वर्ड एप्लिकेशन के साथ लोड हो जाए।

गोटो मैक्रो एडिटर में Alt + F11 दबाएं और इस कोड को पेस्ट करें। आपको त्वरित एक्सेस टूल बार में तीन बटन जोड़ने की आवश्यकता है। आप एमएस वर्ड के टाइटल बार पर "क्विक एक्सेस टूलबार कस्टमाइज़ करें" बताकर छोटे डाउनवर्ड एरो पर क्लिक करके ऐसा कर सकते हैं, जहां आपको सेव, अनडू और रीडो बटन मिलेंगे। "वर्ड विकल्प" विंडो खोलने के लिए ड्रॉपडाउन मेनू में "अधिक कमांड" चुनें। बाएं हाथ मेनू पर "अनुकूलित करें" चुनें और "से आदेश चुनें" को "मैक्रोज़" पर सेट किया जाना चाहिए। सभी तीन मैक्रो जोड़ें और यह त्वरित एक्सेस टूल बार पर तीन बटन बनाएगा। अब आपका एमएस शब्द टीटीएस सक्षम है।

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

हम्म, यदि आप मेरी पोस्ट में स्रोत लिंक की बात कर रहे हैं, तो यह मेरे लिए 3 अलग-अलग ब्राउज़रों में ठीक काम करता है।

मेरे लिए काम नहीं करता है :(। मेरे पास विंडोज 8 है। यह एक त्रुटि संदेश भी नहीं देता है। इसके कुछ भी ज़ोर से नहीं पढ़ रहा है ... मैंने भी सक्रिय कर दिया है Microsoft Speech Object Library
mcExchange

0

आप हमेशा पाठ को कॉपी / पेस्ट करने का प्रयास कर सकते हैं कृप्या पढ़िए । इसके नि: शुल्क और भुगतान किए गए संस्करण हैं, और मुफ्त संस्करण काम करते हैं महान! बस स्थापित करें, अपने पाठ को कॉपी पेस्ट करें, और आप बंद हो गए हैं! :)

हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.