Ценю ваш быстрый ответ, поскольку он подтверждает мой альтернативный подход.

Question

Feb 14, 2018, 04:07 PM

те предположим, что сейчас 11ч11мин. Он читает «ОДИН ОДИН» часы и «одиннадцать» минут, как в:

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

Напротив, он читает «ОДИН ОДИН» часы и «одиннадцать» минут, как в:

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

Как я могу заставить это читать эти числа как слова?

Ответы на вопрос(3)