newswan

vba 可以列出语音库

Sub getvoice()

    Dim s
    Set sv = CreateObject("sapi.spvoice")
    For Each token In sv.GetVoices
        s = token.GetDescription
    Next


End Sub
复制代码

newswan

用powershel 列出语音库

$sp = New-Object -COM Sapi.SpVoice
$sv = $sp.GetVoices()
$sv | ForEach-Object {
    $_.id
}
复制代码

newswan

$sp = New-Object -COM Sapi.SpVoice
$sv = $sp.GetVoices()
$a = 'zhCN_KangkangM'
$sv | ForEach-Object -begin {$i=-1} {
	$i++
	#$_.id
	if ( $_.id -like "*$a*" ) {
		$i
		$sp.voice =$_
	}
}
$sp.Speak("abc")
复制代码

$a 就是关键字

newswan

$a = 'zhCN_KangkangM'
$file ="1.txt"

$sp = New-Object -COM Sapi.SpVoice
$sv = $sp.GetVoices()

$sv | ForEach-Object -begin {$i=-1} {
	$i++
	#$_.id
	if ( $_.id -like "*$a*" ) {
		$i
		$sp.voice =$_
	}
}

$text = Get-Content -Encoding 'UTF8' -path $file
$sp.Speak($text)
复制代码

$file utf8 无bom

newswan

mshta vbscript:"<script language=vbs>set sp=createobject(""sapi.spvoice""):Set sp.Voice = sp.GetVoices(""Name=Microsoft Kangkang"").Item(0):sp.rate=0:sp.Volume=100:FlagsAsync=0:sp.speak ""2023"":window.close</script>"
复制代码

试试