메뉴
이 페이지에서
실무 위키›VBA 코드›GetVocList

GetVocList

Function

현재 PC에서 사용 가능한 음성 변환 목록을 배열로 반환하는 VBA 사용자 지정 함수입니다.

예제파일 다운로드
GetVocList 코드 미리보기
구문 = GetVocList ( [메시지출력여부] )
인수구분 형식 설명
메시지출력여부 선택 Boolean
TRUE일 경우 사용가능한 음성 변환 목록을 메시지 박스로 출력합니다. 기본값은 FALSE 입니다.

마스터 코드

복사한 코드는 VBA 편집기(Alt + F11) 새 모듈에 붙여넣어 사용하세요
Module1 · 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

활용 예제

현재 PC에서 사용가능한 음성 변환 목록 출력하기
= GetVocList ( )
'// 사용 가능한 음성 변환 목록을 반환합니다.
'// 예: {Microsoft Heami Desktop - Korean, Microsoft Zira Desktop - English (United States), Microsoft David Desktop - English (United States)}
음성 변환 목록을 메시지박스로 출력하기
= GetVocList ( True )
'// 사용가능한 음성 변환 목록을 메시지박스로 출력합니다.

안내사항

윈도우 음성 변환 기능을 사용하려면 해당 언어의 언어팩이 설치되어 있어야 합니다.
댓글 1
5 (1개 평가)
강민준🤗
강민준🤗 2024.08.11 12:27
좋은 자료 감사합니다.🙇‍♂️
스크랩 완료