Set VObj = CreateObject("SAPI.SpVoice") with VObj Set .voice = .getvoices.item(0) .Volume = 100 .Rate = 1 end with Set VObj = CreateObject("SAPI.SpVoice") For Each Voice In VObj.getvoices I = I + 1 msgbox "I am " & Voice.GetDescription & " and ;)" Next For count=0 to 3 vobj.Speak"Cygig Lol, at least try to do it in a less obvious way" Next
ERP Project Management,Asp.net,PL SQL Tips for error resolution,Research,Software Errors and solution,SQL 2014,2012,2008,Procedural language,SP,Power BI,excel macro ,Musical notations,Business software,Degree, diploma related informations.