एमएस वर्ड 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
स्रोत