VBAの音声読み上げについて

質問

とあるテキストファイルをVBAのSpeakメソッドを使い読み上げるマクロを作成しました。

コードはネットで調べこんな感じで書きました。

Sub test()
Dim buf As String
Open "C:\音声読み上げ.TXT" For Input As #1
Line Input #1, buf
Application.Speech.Speak buf
End

End Sub

このテキストファイルの文字列の中には数字があり通常は、

1　⇒　いち
11　⇒　じゅういち

と読み上げてくれるのですが、日本の緊急電話(110、119等)に関しては、110番119番と認識されてしまい
110　⇒　ひゃくとう”ばん”
119　⇒　ひゃくじゅうきゅう”ばん”
と”ばん”をつけて読み上げられてしまいます。

VBAに関してはあまり知識が無く、いくら調べても出てこない為質問させて頂きます。
どなたか対策法をご存じの方お教えいただけないでしょうか。

宜しくお願い致します。

回答No.2

kkkkkm · ベストアンサー

正しい方法かどうかは分かりませんが、とりあえず

buf = Replace(buf, "119", "119/")
Application.Speech.Speak buf

みたいな感じで
119を119/
にすれば「ばん」はなくなります。

お礼

ありがとうございます！！
この方法で出来ました！！

回答No.1

tkf-

音声読み上げエンジンの問題ですので、VBA上で同行できるものではないと思われます。
[設定] - [簡単操作] - [ナレーター]で設定が可能ですが、110 -> 110番と読むような設定は特になさそうでしたので、規定で仕込まれているのでしょう。この質問文を読ませても、ひゃくとうばんならばひゃくとうばん、とかしゃべります。

上記設定から、ナレーターホームを開いて「フィードバック」すると改善されるかもしれません。

お礼

ご回答頂きありがとうございます！

別の回答ですが解決しました。
お手数おかけしました。