1 files changed, 21 insertions, 6 deletions

diff --git a/tools/sapi_voice.vbs b/tools/sapi_voice.vbs
index 115781fd71..6f20109c24 100644
--- a/tools/sapi_voice.vbs
+++ b/tools/sapi_voice.vbs
@@ -270,6 +270,8 @@ Function LangIDs(ByRef sLanguage)
     Dim aIDs
 
     Select Case sLanguage
+        Case "afrikaans"
+            LangIDs = Array(&h436)
         Case "arabic"
             LangIDs = Array( &h401,  &h801,  &hc01, &h1001, &h1401, &h1801, _
                             &h1c01, &h2001, &h2401, &h2801, &h2c01, &h3001, _
@@ -277,8 +279,8 @@ Function LangIDs(ByRef sLanguage)
             ' Saudi Arabia, Iraq, Egypt, Libya, Algeria, Morocco, Tunisia,
             ' Oman, Yemen, Syria, Jordan, Lebanon, Kuwait, U.A.E., Bahrain,
             ' Qatar
-        Case "afrikaans"
-            LangIDs = Array(&h436)
+        Case "basque"
+            LangIDs = Array(&h42d)
         Case "bulgarian"
             LangIDs = Array(&h402)
         Case "catala"
@@ -296,6 +298,13 @@ Function LangIDs(ByRef sLanguage)
             ' Standard, Austrian, Luxembourg, Liechtenstein (Swiss -> wallisertitsch)
         Case "eesti"
             LangIDs = Array(&h425)
+        Case "english-us"
+            LangIDs = Array( &h409,  &h809,  &hc09, &h1009, &h1409, &h1809, _
+                            &h1c09, &h2009, &h2409, &h2809, &h2c09, &h3009, _
+                            &h3409)
+            ' American, British, Australian, Canadian, New Zealand, Ireland,
+            ' South Africa, Jamaika, Caribbean, Belize, Trinidad, Zimbabwe,
+            ' Philippines
         Case "english"
             LangIDs = Array( &h809,  &h409,  &hc09, &h1009, &h1409, &h1809, _
                             &h1c09, &h2009, &h2409, &h2809, &h2c09, &h3009, _
@@ -328,6 +337,8 @@ Function LangIDs(ByRef sLanguage)
             LangIDs = Array(&h40d)
         Case "hindi"
             LangIDs = Array(&h439)
+        Case "hrvatski"
+            LangIDs = Array(&h41a, &h101a) ' Croatia, Bosnia and Herzegovina
         Case "islenska"
             LangIDs = Array(&h40f)
         Case "italiano"
@@ -336,22 +347,24 @@ Function LangIDs(ByRef sLanguage)
             LangIDs = Array(&h411)
         Case "korean"
             LangIDs = Array(&h412)
+        Case "latviesu"
+            LangIDs = Array(&h426)
         Case "lietuviu"
             LangIDs = Array(&h427)
         Case "magyar"
             LangIDs = Array(&h40e)
         Case "nederlands"
             LangIDs = Array(&h413, &h813) ' Standard, Belgian
-        Case "norsk"
-            LangIDs = Array(&h414) ' Bokmal
         Case "norsk-nynorsk"
             LangIDs = Array(&h814)
+        Case "norsk"
+            LangIDs = Array(&h414) ' Bokmal
         Case "polski"
             LangIDs = Array(&h415)
-        Case "portugues"
-            LangIDs = Array(&h816)
         Case "portugues-brasileiro"
             LangIDs = Array(&h416)
+        Case "portugues"
+            LangIDs = Array(&h816)
         Case "romaneste"
             LangIDs = Array(&h418)
         Case "russian"
@@ -370,6 +383,8 @@ Function LangIDs(ByRef sLanguage)
             LangIDs = Array(&h41e)
         Case "turkce"
             LangIDs = Array(&h41f)
+        Case "ukrainian"
+            LangIDs = Array(&h422)
         Case "wallisertitsch"
             LangIDs = Array(&h807) ' Swiss German
         Case "walon"