Замена различных символов различными группами в StringRegExpReplace

$Num=Random(1, 3, 1)
MsgBox(0, $Num, StringReplace(StringReplace(StringReplace($Num, '1', 'Один'), '2', 'Два'), '3', 'Три'))

Global $ar[10] = ["Ноль","Один","Два","Три","Четыре","Пять","Шесть","Семь","Восемь","Девять"]
$Num = Random(0, 9, 1)
MsgBox(0, $Num, $ar[$Num])

Global $ar[10] = ["Ноль","Один","Два","Три","Четыре","Пять","Шесть","Семь","Восемь","Девять"]

$str = 'пример 1. Условие: 1 + 2. Решение: 3'

For $i = 0 To 9
	$str = StringReplace($str, String($i), $ar[$i])
Next

MsgBox(0, '', $str)

не пойму как с помощью StringRegExpReplace реализовать это одной командой, если это вообще возможно

$iNum=Random(0,9,1)
MsgBox(0, $iNum, StringRegExpReplace('нольодиндватричетырепятьшестьсемьвосемьдевять','(ноль)(один)(два)(три)(четыре)(пять)(шесть)(семь)(восемь)(девять)','\' & $iNum+1))