64位Excel无法使用32位的语音库

Set TTS = CreateObject("SAPI.SpVoice")
Set TTS.Voice = TTS.GetVoices("Name=VW Julie").Item(0)
TTS.Rate = -2 '速度
TTS.Volume = 100 '声音
On Error Resume Next: TTS.Speak "", 2: TTS.Speak 上单词拼写1, 1
Set TTS.Voice = TTS.GetVoices("Name=VW Bridget").Item(0)

32位的Excel可以正常使用上述代码
64位的无法使用上述代码
因为该语音库为32位的
请问有没有办法在不更换64位excel的情况下运行32位的语音库