Application.Speak Numbers with Spell

[VulkaJohn]

Application.Speech.Speak "< spell >110< /spell>", False, SpeakXML:=True speaks One One Zero

How can this be reproduced with a string variable (Dim say as string) with a value of 110

Application.Speech.Speak Say, False, SpeakXML:=True speaks One hundred and ten

How is the < spell > XML added to the variable?

Or is there another way to force numbers to be spoken as One One Zero rather than One hundred and ten

Thanks

 

[Yongle]

Is this what you want?

Sub SpeakNumbers()
    Dim say As String, char As Integer
    say = "0123456789"
    
    For char = 1 To Len(say)
        Application.Speech.Speak (Mid(say, char, 1))
    Next
End Sub

 

[VulkaJohn]

Is this what you want?

Sub SpeakNumbers()
    Dim say As String, char As Integer
    say = "0123456789"
    
    For char = 1 To Len(say)
        Application.Speech.Speak (Mid(say, char, 1))
    Next
End Sub

Thanks Yongle that works like a charm.

Just one point, can your code be a single line like For char = 1 To Len(say) Application.Speech.Speak (Mid(say, char, 1)) Next
I assume some punctuation is needed, if it can't, well that's fine also, again, my thanks.

 

[footoo]

Why do you need 1 line :

For char = 1 To Len(say): Application.Speech.Speak (Mid(say, char, 1)): Next

 

[Yongle]

Thanks for the feedback (Your questions has already been answered by footoo)

 

[VulkaJohn]

Why do you need 1 line :

For char = 1 To Len(say): Application.Speech.Speak (Mid(say, char, 1)): Next

I use speech to read back input forms which I activate through a userform with multiple lines which are identical except for the variable

I write and test the first line in VBA, when it works I copy the single line to a text editor with a column copy and replace feature

I then copy twenty lines of code, column delete the variables names (all same length), then column paste the 20 variables into the correct place

Copy the 20 lines into VBA, all done. Much quicker than editing a triple line code segment, it may not look pretty, but it works. I use the same method in writing HTML to display say 100 jpegs on the same page.

Thanks for your help, I am reasonably new to VBA and did not fully understand how to concatenate lines although I have been programming since 1980. Still learning new tricks!

Thanks again

 

[VulkaJohn]

Thanks for the feedback (Your questions has already been answered by footoo)

Thanks again for your help Yongle