엑셀 음성 변환 단어장 만들기 & 실무자 필수 윈도우 단축키 :: 엑셀 Live 9강

45개국 단어를 읽어주는 엑셀 음성변환 단어장 만들기 및 실무자라면 반드시 알아야 할 윈도우 필수 단축키를 알아봅니다.

홈페이지 » 엑셀 음성 변환 단어장 만들기 :: 엑셀 Live 9강

이번 강의에서 다룰 내용

윈도우 필수 단축키

이번 강의에서는 실무자라면 반드시 알아야 할 윈도우 필수 단축키 및 필수 기능을 알아봅니다.

#윈도우 필수 단축키

엑셀 x 음성변환

윈도우에서 기본으로 제공하는 언어팩을 활용하여 45개국 단어를 읽어주는 음성 변환 단어장을 제작합니다.

#엑셀 단어장

1. 윈도우 필수 단축키

엑셀 윈도우 단축키 전_R

주변에 일 잘하는 직장인들이 갖는 공통점이 있습니다.
그 중 하나가 바로 프로그램의 기능과 단축키를 효율적으로 사용한다는 것 인데요.

엑셀 윈도우 단축키 후_R

이번 강의에서는 실무자라면 반드시 알아야 할
윈도우 필수 단축키와 필수 기능을 하나씩 살펴봅니다.

2. 엑셀 x 음성변환 단어장

엑셀 음성 변환 단어장 전__R

윈도우에서 기본으로 제공하는 언어팩을 활용하면
45개 국어를 60개 목소리로 음성 변환 할 수 있습니다.

엑셀 음성 변환 단어장 후_R

이번 강의에서는 VBA 매크로로 사용가능한 음성변환 목록을 확인하고
특정 단어를 지정한 언어로 음성변환 하는 방법을 알아봅니다.

.

엑셀 LIVE 9강 : 엑셀 음성변환 단어장 & 윈도우 단축키

시간대별 강의목차
목차를 클릭하여 해당 시간대로 편리하게 이동할 수 있습니다.
예제파일 다운로드

완성파일 다운로드 링크는 영상 하단 댓글에서 확인 가능합니다.

이번 강의에서 사용된 VBA 명령문

  1. PC에 설치된 언어팩(음성변환) 목록 출력하기 - 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
  2. 텍스트를 지정한 언어로 음성변환하기 - VocSpeak 명령문
    '###############################################################
    '오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
    '▶ VocSpeak 함수
    '▶ 단어를 특정 언어로 읽어주는 텍스트 음성 변환 함수입니다.
    '▶ 인수 설명
    '_____________Voca                  : 음성 변환 할 텍스트입니다.
    '_____________Language          : 텍스트를 읽을 대상 언어입니다. 사용중인 PC에 해당 언어팩이 설치되어 있어야 합니다.
    '###############################################################
     
    Sub VocSpeak(Voca As Variant, Language As String)
     
    ' 변수 생성
    Dim Voc As Object
    Set Voc = CreateObject("SAPI.SpVoice")
     
    ' 가용한 음성 변환 목록을 하나씩 돌아가며 사용 언어와 일치하는 항목이 있는지 확인
    For i = 0 To Voc.GetVoices.Count - 1
        Set Voc.Voice = Voc.GetVoices.Item(i)
        If InStr(1, Voc.Voice.GetDescription, Language) Then GoTo Speak
    Next
     
    '일치하는 항목이 없을 경우 안내메시지 띄우고 함수 종료
    MsgBox "음성 변환 할 언어가 PC에 설치되어 있지 않습니다.", vbInformation, "오빠두엑셀 - 오류안내"
     
    Exit Sub
     
    ' 가용한 음성 변환 항목이 있을 시 음성 변환 후 명령문을 종료합니다.
    Speak:
    Voc.Speak Voca
     
    End Sub

사용가능 버전 안내

운영체제호환성
Windows 버전엑셀 2010 이후 버전에서 사용 가능합니다.
Mac 버전Mac 용 엑셀 2011 이후 버전에서 사용 가능합니다.
현재 페이지 댓글알림 신청
알림 설정
guest
0 Comments
Inline Feedbacks
View all comments
0
여러분의 생각을 댓글로 남겨주세요.x