Hi David, not all synthesizers have installed engines, and in that case, you need to test on the description of the synthesizer object; in fact, I think this is often the case. Here's a little code I use when trying to create a unique section name for each possible synthesizer and it's voice: Set synth = synthesizers.Active Set synthEng = synth.ActiveEngine ' this could be an empty engine object VoiceSection = Trim(synth.Description) If synth.InstalledEngines.Count > 0 Then VoiceSection = VoiceSection & "|" & Trim(synthEng.Description) ' below is just for testing on the basic synthesizer, without worrying about which voice it's using: Select Case synthesizers.Active.Description Case "Eloquence": ...
_____ From: David [mailto:[email protected]] Sent: Saturday, February 18, 2012 12:49 AM To: [email protected] Subject: Currently Active Voice, please help Hmm, seems I am getting lost here. I am trying to retrieve the info, about the currently active voice. What is wrong, in my snip-it? I only get empty fields. Dim Synths: Set Synths = Synthesizers Dim activeSynth : Set activeSynth = Synths.Active Dim ActiveEng: Set ActiveEng = ActiveSynth.activeEngine Dim Info Info = "Description: " &ActiveEng.Description &VbCrLf &_ "Manufacturer: " &ActiveEng.Manufacturer &VbCrLf &_ "Product: " &ActiveEng.Product &VbCrLf &_ "Speaker: " &ActiveEng.Speaker MsgBox Info Thanks alot.
