为什么 Application.Speech.Speak 单独读取一些数字而不是将它们放在一起？

Question

假设现在是 11 小时 11 分。它读作“ONE ONE”小时和“十一”分钟，如下所示：

Sub TEST1() 
  Application.Speech.Speak "It is " & Hour(Now()) & " hours and " & Minute(Now()) & " minutes"
End Sub

但是，下面的内容是“十一”小时和“十一”分钟

Sub TEST2() 
  Application.Speech.Speak "It is 11 hours and 11 minutes"
End Sub

相反，它读作“ONE ONE”小时和“十一”分钟，如：

Sub TEST3() 
  Application.Speech.Speak "It is " & "11" & " hours and " & "11" & " minutes"
End Sub

我怎样才能让它把这些数字读成文字？

Answer 1

您需要创建/修改字符串以产生您想要的结果。

Sub dural()
    Application.Speech.Speak "11"
    Application.Speech.Speak "eleven"
End Sub

会重复同样的事情。

Sub dural()
    Application.Speech.Speak "1 1"
    Application.Speech.Speak "one one"
End Sub

也会这样做。一旦你决定了你想让计算机说什么，你就可以格式化/重新格式化字符串以产生结果。

编辑#1：

在我的电脑上：

Sub dmral()
    Dim s As String
    s = "It is " & "11" & " hours and " & "11" & " minutes"
    MsgBox s
    Application.Speech.Speak s
End Sub

也可以按预期工作。

看来需要先进行串联。

Answer 2

通过 SpeakXML 参数的方法

语法

.Speak（文本，SpeakAsync，SpeakXML，清除）

如果将第三个参数 SpeakXML 设置为 True，则可以在文本字符串中使用 XML 标记。

XML <spell> 标签强制语音拼出所有文本，而不是使用其默认的单词和句子中断规则。所有字符都应扩展为相应的单词（包括标点符号、数字等）。 注意<spell>标签不能为空，也不要忘记结束标签</spell>。

尝试将以下内容与11 的两种变体一起使用：

代码

Sub TEST()
  Application.Speech.Speak "It is " & "<spell>11</spell>" & " hours and " & "11" & " minutes", False, SpeakXML:=True
End Sub

注意/警告

我使用的是中欧语言版本，而您的示例在我的情况下并没有说出一个人，所以可能还有另一个本地设置问题。

Answer 3

葡萄牙语有一些有趣的发音挑战。除其他外，我们在 São Paulo 中的单词有鼻音“-ão”结尾。 -ão 的发音几乎与“sow”中的 -ow 发音相似，这意味着当您发音元音时，空气应该部分从您的鼻子中流出。话虽这么说......

Application.Speech.Speak "Já são" & Hour(Now()) & "horas e 11 minutos" --> 读作“现在是一小时十一分钟”

Application.Speech.Speak "11" --> 读作“十一”

Application.Speech.Speak "Já são" & "11" & "horas" --> 读作“现在是一小时”

Application.Speech.Speak "Já sao" & Hour(Now()) --> 读作“现在是十一小时”。请注意，在这种情况下，鼻音 -“ão”已被删除。所以，数字发音是单词

Application.Speech.Speak "Já são^" & Hour(Now()) --> 读作“现在是十一小时”。请注意，鼻音 -“ão”现在出现了，并且后面还有一个“^”符号

我不知道 Excel 为什么会这样。 但是，问题解决了 :)