英語単語を読み上げるコンテンツを作る方法

Question

YouTubeに「絶対覚える英単語1000」というサイトがあるのですが英単語を覚えるのに役立ちます。

この「絶対覚える英単語1000」を真似して、自分で、

①英単語が表示する
②その英単語を読み上げる
③しばらくして、その英単語に対する日本語が表示する
④その日本語を読み上げる

コンテンツを、作りたいですが、どのようにすれば、良いでしょうか？

ソフトは、
日本語読み上げソフト「テキスト読み上げ太郎」を持っています。

ひよっとして、プログラムを作る必要が御座いましたら、Excel2013のVBAも少し使えます。

WindFaller · Accepted Answer

こんにちは。

>これを、一気に、
>"abbreviation"
>と表示させ、
>同様に"短縮"
>と表示させることは出来ないでしょうか？

今回のは、私の考えたオプションだったからですが、途中で止まるのは、たぶん、Excelの仮想メモリとの関係だと思います。やっぱりまずかったのかなって思います。ただ、プログラムとして選択オプションとしては残したいとは思っていますが、暫定的に、私の希望は置いておき、DreamsComeFalse様のご希望のスタイルに従っていくことに決めました。

私のイメージには、
http://実践英語.com/speaking/instant_english_tool.html
このようなものがあります。ここは、ほとんど瞬時で出てくるのですが、私自身は、時間差が必要なのです。日本語の理解から英語を直す時に瞬時ということができません。その為もあってのことです。

>教えて頂いたコンテンツに、９００語近い単語を登録して覚えようと考えています。

これは、最近、同じことを別所でも書いているのですが、どうやって覚えるかという根本的な理論の裏付けも必要ではないでしょうか。

大前提として
・英単語の記憶は繰り返しやるしかない
これにつきます。私がやり始めた頃は、だいたい5クールを終えれば覚えられましたが、それから年齢が上がると、10クールをやっても覚えられなくなってきました。(最初は、10年以上前からです）
1クールは、当時は、300語で、一日の量は20語。これを一通り覚えて、一日のノルマを終了することとします。全部を通して、1クール。順調に行けば、15日で1クールになるはずです。

英単語を覚えるときにしておくべきことは、
　反射的に意味が分かるように覚えておくことです。
　条件反射的にサッと出てくるようする。(ただし、日本語訳を言うことではありません。）
　それを、だんだんとスピードを挙げていくこと。そろばんのフラッシュカードと同じようにします。現行のデータを読み上げますから、速くありません。(サイレントモードで、フラッシュカード形式にしてもよいかと思います）
　
　私の経験では、一週間か10日単位で、100語程度を繰り返すのが、一番効率がよいです。覚えたものと覚えていないものをより分けていくのです。やらないものは忘れているか実験をしてみると、覚えたものは覚えているものだそうです。
　
　最終的には、100語を1秒～2秒程度で進めていきます。(英単語からの場合は、意味が分かることです）ここでほぼ完全になれば、その逆、日本語をみて英語は、声に出すことをします。そして、音声を聞きます。

私の覚え方は、学生さんの方法とは違って、単独で単語を覚えることはかなり少ないです。

まず、日本語で見る
--------------
多くの著名な演説者たちが年次[集会]の準備をしていた。
　　　　　　　↓[STOP] -Userが、次に進ませる
Many famous speakers were preparing for their annual convention．
　　　　↓[STOP]－Userに、出来たかどうかを確認
convention
　↓
集会

[次]
--------------
3と4は、順序は決まっていませんが、このようにします。
[出典：英検１級Pass単語]

改定部分は、ESCで割り込み終了を可能にしました。
----当面の修正-------
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Sub SettingVoice2()
　　Dim Voice As SpVoice
　　Dim s1 As String
　　Dim s2 As String
　　Dim DispSh As Worksheet
　　Dim DataSh As Worksheet
　　On Error GoTo ErrHandler
　　Application.EnableCancelKey = xlErrorHandler
　　'表示シート1[Worksheets("Sheet1")]で使う
　　Set DispSh = Worksheets("Sheet1")
　　'データシート[Worksheets("Sheet2")]のA2 から、下に入れていく。
　　Set DataSh = Worksheets("Sheet2")
　　Set Voice = New SpVoice 'テキスト・スピーチ TTS インスタンス
　　Const SPD As Long = 50 '次回の表示まで　1000= 1秒
　　Dim bln As Boolean
　　Dim sw As Boolean: sw = False '日英切り替えスイッチ　　'True は日本語が先
　　With DispSh
　　　　.Range("C4, C6").ClearContents
　　　　If bln = False Then
　　　　　　With .Range("C4, C6").Font
　　　　　　　　If .Size < 12 Then
　　　　　　　　　　.Size = 16
　　　　　　　　　　.Bold = True
　　　　　　　　　　bln = True
　　　　　　　　End If
　　　　　　End With
　　　　End If
　　End With
　　If sw Then
　　　　Voice.Speak "さあ　英単語を覚えましょう"
　　Else
　　　　Voice.Speak "<xml><lang langid=""409"">learn the next words by heart</lang></xml>" '英語
　　End If
　　Application.ScreenUpdating = True
　　With DataSh
　　　　For j = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
　　　　　　If sw Then
　　　　　　　　s1 = .Cells(j, 2).Value:　　 s2 = .Cells(j, 1).Value
　　　　　　Else
　　　　　　　　s1 = .Cells(j, 1).Value:　　 s2 = .Cells(j, 2).Value
　　　　　　End If
　　　　　　'---upward--
　　　　　　DispSh.Range("C4").Value = s1 '表示
　　　　　　DoEvents
　　　　　　Sleep 10 '暴走を止める安全装置
　　　　　　If sw Then
　　　　　　　　Voice.Speak s1 '日本語
　　　　　　Else
　　　　　　　　Voice.Speak "<xml><lang langid=""409"">" & s1 & "</lang></xml>" '英語
　　　　　　End If
　　　　　　Sleep SPD
　　　　　　'----downward----
　　　　　　DispSh.Range("C6").Value = s2 '表示
　　　　　　DoEvents
　　　　　　Sleep 10 '暴走を止める安全装置
　　　　　　If sw Then
　　　　　　　　Voice.Speak "<xml><lang langid=""409"">" & s2 & "</lang></xml>" '英語
　　　　　　Else
　　　　　　　　Voice.Speak s2 '日本語
　　　　　　End If
　　　　　　DispSh.Range("C4,C6").ClearContents
　　　　　　Sleep SPD '次回表示までの時間
　　　　Next j
　　End With
　　If sw Then
　　　　Voice.Speak "続ければ結果が必ず出ます。"
　　Else
　　　　Voice.Speak "<xml><lang langid=""409"">We belive you will come over.</lang></xml>" '英語
　　End If
ErrHandler:
　　If Err.Number = 18 Then
　　　　MsgBox "ユーザーの命令で中途で終了します。", vbExclamation
　　ElseIf Err.Number <> 0 Then
　　　　MsgBox Err.Number & ": " & Err.Description
　　End If
　　DispSh.Range("C4,C6").ClearContents
　　Set Voice = Nothing
　　Application.EnableCancelKey = xlInterrupt
End Sub

WindFaller · Answer

すみません。お礼を見落としてしまいました。すぐに手を加えました。補足のほうは、特別な時のために取っておいてくださいね。それから、「我儘を申しまして」なんていう気兼ねは、不要です。それは、私も考えていたことですから、自分なりのアレンジをいくつか加えています。私は、システムとして考えていますから、これが終われば、P-DICから抜き出し問題を作る、データ作りも考えなければなりません。私は、数千から万のデータを保有していますが、気に入らないものが大半です。それで、「学辞郎」をわざわざ手に入れました。これから、問題を作るのもなかなか大変です。P-Study System用というツールはあっても、私は、満足していませんでしたから。今、私の英単語の語彙力は、Words and Tools のintermdiate ですと、10,000語をやっと越えるぐらいです。120語ありますから、もっとも量の多い単語テストです。 http://www.bhever.net/wordsandtools/index_lemma.htm http://testyourvocab.com/　こちらは、アテになりませんが、15,000レベルまで一応いきます。 > VBAを実行しました。これがスタートですから、後は、できれば、逆にアドバイスしていただきたいと思います。 #3で書いたように、あまりデザインとか私は得意ではありません。私自身としても、ある程度の格好、システムとして作りたいと思います。 >更に、大きな文字で、表示して頂きましたら、うれしいです。私は、フォントを16にしています。これは、マクロでなくても良いと思いますが、臨時的にマクロに入れておきましょう。こんどの改良点を少し説明すると、★で、表示スピードが多少変わります。 SPD は、スピードで、数が多くなるほど、遅くなります。 ★★　swは、sw = True とすると、日本語が先になり、英語が後になって出てきます。 =""409"">　となっているのが、米国です。 =""809""> となれば、英国です。ただ、聞いてみると、日本語のクォリティが低いなって思います。 misakiさんがあればと思いますが、組み入れられないかもしれません。しかし、misakiさんがあれば、英語の方もクォリティを上げたくなります。いずれにしても、日本語のクォリティが上がればと思います。データは、あくまでも、シートのセルにこだわりたいと思います。#3で書いたように、記録をする必要があるのではないかと思うからです。ボタンを右クリックして、マクロの登録で、こちら「SettingVoice2」に変えます。以下で、少し楽しんでみてください。 '// Sub SettingVoice2() 　　Dim Voice As SpVoice 　　Dim s1 As String, s2 As String 　　Dim DispSh As Worksheet 　　Dim DataSh As Worksheet 　　'表示シート1[Worksheets("Sheet1")]で使う　　Set DispSh = Worksheets("Sheet1") 　　'データシート[Worksheets("Sheet2")]のA2 から、下に入れていく。　　Set DataSh = Worksheets("Sheet2") 　　Set Voice = New SpVoice 'テキスト・スピーチ TTS インスタンス　　Const SPD As Long = 50 '通常50～200まで　★ 　　Dim bln As Boolean 　　Dim sw As Boolean: sw = False '日英切り替えスイッチ★★ 　　With DispSh 　　　　.Range("C4, C6").ClearContents 　　　　If bln = False Then 　　　　　　With .Range("C4, C6").Font 　　　　　　　　If .Size < 12 Then 　　　　　　　　　　.Size = 16 　　　　　　　　　　.Bold = True 　　　　　　　　　　bln = True 　　　　　　　　End If 　　　　　　End With 　　　　End If 　　End With 　　If sw Then 　　　　Voice.Speak "さあ　英単語を覚えましょう" 　　Else 　　　　Voice.Speak "learn the next words by heart" '英語　　End If 　　With DataSh 　　　　For j = 2 To .Cells(Rows.Count, 1).End(xlUp).Row 　　　　　　If sw Then 　　　　　　s1 = .Cells(j, 2).Value:　　 s2 = .Cells(j, 1).Value 　　　　　　Else 　　　　　　s1 = .Cells(j, 1).Value:　　 s2 = .Cells(j, 2).Value 　　　　　　End If 　　　　　　For i = 1 To Len(s1) 　　　　　　　　Sleep SPD 　　　　　　　　DispSh.Range("C4").Value = Mid(s1, 1, i) 　　　　　　　　DoEvents 　　　　　　Next i 　　　　　　Application.ScreenUpdating = False 　　　　　　If sw Then 　　　　　　　　Voice.Speak s1 '日本語　　　　　　Else 　　　　　　　　Voice.Speak "" & s1 & "" '英語　　　　　　End If 　　　　　　Application.ScreenUpdating = True 　　　　　　Sleep 1000 　　　　　　For i = 1 To Len(s2) 　　　　　　　　Sleep SPD 　　　　　　　　DispSh.Range("C6").Value = Mid(s2, 1, i) 　　　　　　　　DoEvents 　　　　　　Next i 　　　　　　Application.ScreenUpdating = False 　　　　　　If sw Then 　　　　　　　　Voice.Speak "" & s2 & "" '英語　　　　　　Else 　　　　　　　　Voice.Speak s2 '日本語　　　　　　End If 　　　　　　Application.ScreenUpdating = True 　　　　　　Sleep 1000 　　　　　　DispSh.Range("C4,C6").ClearContents 　　　　Next j 　　End With 　　If sw Then 　　　　Voice.Speak "おつかれさまでした。" 　　 Else 　　 Voice.Speak "Thank you for listening" '英語　　 End If 　　Set Voice = Nothing End Sub '//

WindFaller · Answer

まず、Microsoft Speech Platform(Ver.11) をインストールしてくださいね。その後は、何でも協力はできます。

ただ、今一つ、レイアウトは、私は、壊滅的なので、なんとかしたいと思っています。ユーザーフォームに入れるかどうかは、少し迷います。

たぶん、「絶対覚える英単語1000」よりもクオリティは高いです。
これに、覚えたか覚えていないかを分けるボタンも必要ですね。
ボタンを押したら、繰り返しもできるようにできればしたいですね。

また、逆の日本語から英語の方も必要ですね。

それと、注意点がひとつあるのは、TTSエンジンは、文章を読ませる方は得意でも、単語レベルになると、あまりうまく行かないものもあります。固有名詞は不得意です。

それから、英単語の覚え方というのは、覚えたものを、だんだんと減らして、覚えられないものを繰り返していくという方法がよいとされています。そうすると、カウントが必要になってきます。

>自分なりの英単語コンテンツを作りたいです。

非力ですが、何かお手伝いできるかもしれません。

WindFaller · Answer

もし、すでに「Microsoft Speech Platform」を入れてあったら、そのままでも結構です。

なるべくPlatform Ver11.0 をお使いください。

Windows8 は、不要な場合もありますが、

http://mahoro-ba.net/e1542.html
「DownloadMssp_22.EXE」
[MSSP簡単インストーラー]
で行ったほうが全体を把握し確認し、安全に進められるようです。

日本語は当然として、英語・米語を含めて、入れておいてください。

インストーラーなしでも、構いません。
Microsoft Speech Platform - Runtime (Version 11)
https://www.microsoft.com/en-us/download/details …
これと、
MSSpeech_TTS_en-US_Helen.msi
MSSpeech_TTS_en-GB_Hazel.msi
MSSpeech_TTS_ja-JP_Haruka.msi
https://www.microsoft.com/en-us/download/details …
を元に、VBAを作りました。

MicrosoftSpeechSDK　は開発をしないのなら、不要です。
*
なお、既にお使いの音声エンジンはMicrosoft Speech Platform(Ver.10) 以外は残しておいても大丈夫です。私は、SAPI5 のAT&T の音声エンジンを持っていますので、それをなしにすることはできません。#1で書いたように、性能では、まだ市販品のものが上位です。

今回は、Excel VBAを利用しています。

インストールが終わりましたら、VBEから、

ツール－参照設定－
■　Microsoft Speech Object Library　　←二つ出てきますから、下のファイル名を見ながら選んでください。

C:\Program Files\Common Files\Microsoft Shared\Speech\Platform..
これにチェックを入れてください。

'----------標準モジュール------------
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Sub SettingVoice()
'シート1[Worksheets("Sheet1")]で使う
Dim Voice As SpVoice
Dim s As Variant
Set Voice = New SpVoice
Voice.Speak "<xml><lang langid=""409"">learn the next words by heart</lang></xml>"　　'英語
With Worksheets("Sheet2")
For j = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
　　 s = .Cells(j, 1).Value
　　 Voice.Speak "<xml><lang langid=""409"">" & s & "</lang></xml>"　　'英語
　　 Sleep 1000
　　 Worksheets("Sheet1").Range("C4").Value = s
　　 If s <> "" Then
　　 s = .Cells(j, 2).Value
　　　　Voice.Speak s　　'日本語
　　　　Sleep 1000
　　　　DoEvents
　　　　 Worksheets("Sheet1").Range("C4").Value = s
　　　　Sleep 1000
　　　　 Worksheets("Sheet1").Range("C4").Value = ""
　　 End If
Next j
End With
　　　　Voice.Speak "<xml><lang langid=""409"">Thank you for listening</lang></xml>"　　'英語
　　 Set Voice = Nothing
End Sub

'-----------------------
Sheet2　データ、A列は英語、B列は日本語

　　　　A　　　　　　　　　　　　　　B
Sentence　　　　　　　　　　　　　　日本語
I was born in November.　　　　　私は11月生まれだ。
Amy's birthday is in October.　　　エイミーの誕生日は10月だ。
Sunday　　　　　　　　　　　　　　日曜日
Thursday　　　　　　　　　　　　　木曜日
Tuesday　　　　　　　　　　　　　火曜日
Wednesday　　　　　　　　　　　　水曜日

Sheet1　　フォームオブジェクトのボタンがあり、上記のコードを登録します。

-----------------------
感想としては、YouTube の「絶対覚える英単語1000」のクォリティよりは、日本語の品質は高いけれども、10年以上昔から知られている音声エンジンの「ミサキ(misaki)」よりは、遥かに劣ります。もちろん、misakiには、イントネーションのユーザー定義辞書を備えていますから、長年、視覚障がい者のために利用されてきました。
http://neospeech.com/　NeoSpeech Text-to-Speech misaki
個人的には、もうこれは、もうPublic Domainでフリーでもいいのではないかと、思ってしまうのです。

本プログラムについては。
おそらく、もう少し見栄えのよいものを、誰かが作るかと思います。
私は、例文なくして英単語は覚えられない主義です。
英検Pass単熟語(古本で安い）の例文集などを、本をバラして、OCRに入れてデータを取ってもよいのではないかと思います。

私が考えるのは、システムとして教材づくりのほうを、しばらく前から始めています。英辞郎の学習版、『学辞郎』をやっと手に入れて、そこからデータを取り出して組み入れようとしていますが、アルク社のSVL, SILをすべて抜き出しデータベース化して、他の単語リストに、その例文を割り当てるためのシステムを考えています。

WindFaller · Answer

こんばんは。

YouTube の「絶対覚える英単語1000」のクォリティよりは、高いものは作れるものの、かなり大事な問題があります。それは、日本語と英語を交互に入れ替えることです。YouTube を聞くと、同じ合成音声を使っているようには思えないので、それを他で喋らせることが出来ないかと考えています。

二つのオートメーション・オブジェクトを入れればよいような気がしますが、マクロでレジストリをいじることになると思います。

"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech\Voices\Tokens\
この部分があるはずです。このエンジンを切り替えるというのは、かなり冒険になってしまいますし、壊したくはありません。以前、壊したことがあって、修復するのに手間が掛かりました。最初からオートメーションを二つ作ればと考えるかもしれませんが、本体はひとつだけしかありませんから、負荷が強いのではないとか思っています。

それをどうするか、思案中です。
英語だけなら簡単です。

私は、早速以下を読ませるものを作ってしまいました。

例えば、
I was born in November.　　　　November
Amy's birthday is in October.　 October

英辞郎の姉妹版『学辞郎』のレベル1　を、PDIC(旧)から、例文を吐き出させることができます。

問題は、Speach Engine です。
日本語と英語を交互に言わせるとなると、別のエンジンを使ったほうが安全だと考えたからです。そんなに切り替わりが早いはずがありませんから。

私が気に入っているのは、ATT Natural Voices というパックです。ひとつ言語の音声は大体、4,500円ぐらいします。ATTやアカペラという所が作って、スピーチアプリの会社から販売されています。日本は、主に業務用がほとんどで、最近は違うようですが、今までは、視覚障害者用のものが手に入りました。

音声エンジン
http://www.naturalreaders.com/priceorder.html

それから、新しいスピーチエンジンの
Microsoft Speech Platform 10 および 11 
これがどんな調子かも見てみないと分かりません。
http://mahoro-ba.net/e1542.html

以下のサイトで紹介されている所などで
これをIEでコントロールができればと思ったのですが、今のところうまくいきません。目下こんなところです。

http://matome.naver.jp/odai/2132467938117365501

http://www.naturalreaders.com/index.html

http://www.ai-j.jp/consumer/kantan3

英語単語を読み上げるコンテンツを作る方法

こんにちは。

すみません。

まず、Microsoft Speech Platform(Ver.11) をインストールしてくださいね。

もし、すでに「Microsoft Speech Platform」を入れてあったら、そのままでも結構です。

こんばんは。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング