엑셀 음성 변환 목록 출력 :: GetVocList 함수 사용법

'###############################################################
'오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
'▶ GetVocList 함수
'▶ 사용 가능한 음성 변환 목록을 배열로 반홯납니다.
'▶ 인수 설명
'_____________ShowMsgBox : True일 경우 사용가능한 음성 변환 목록을 메시지박스로 출력합니다.
'###############################################################
Function GetVocList(Optional ShowMsg As Boolean = False) As Variant
 
' 변수 생성
Dim Voc As Object
Dim vaReturn As Variant
Dim v As Variant: Dim s As String
Set Voc = CreateObject("SAPI.SpVoice")
 
' 사용 가능한 음성 변환 목록 개수 넓이로 배열 생성
ReDim vaReturn(0 To Voc.GetVoices.Count - 1)
 
' 음성 이름을 배열에 추가
For i = 0 To Voc.GetVoices.Count - 1
    Set Voc.Voice = Voc.GetVoices.Item(i)
    vaReturn(i) = Voc.Voice.GetDescription
Next
 
' 메세지 출력여부 True일 경우 메세지 출력
If ShowMsg = True Then: For Each v In vaReturn: s = s & v & vbNewLine: Next: MsgBox s
 
' 결과값 반환
GetVocList = vaReturn
 
End Function