loVoice.Voice = loVoice.GetVoices().Item(0)  && 我的(3)是中文女声，(0)可能是 Microsoft Sam
   lovoice.speak(thisform.edit1.text,1)

如上指令，让电脑播放EDIT1中的文字内容，但电脑会将所有内容播放完，能够中途停止语音吗？是什么指令呢？恳请帮忙指教！

我现在能用的办法是先将文本转成WAV音频，然后播放音频，音频可随时停止。文本朗读有办法直接停止吗？

lovoice.speak(thisform.edit1.text,1)
speak()的第二个参数为 1 是异步方式，执行之后在适当时候可以暂停或中止。
oSpeak = CREATEOBJECT("SAPI.SPVoice")
cStr = "该SpVoice对象带来了文字到应用程序使用的SAPI自动化语音转换（TTS）引擎功能。"+;
    "应用程序可以创建无数SpVoice对象，每个独立和与人交往的能力。 一个SpVoice对象，"+;
    "通常简称为一个声音，是创建具有默认属性设置，以便它已准备好立即发言。"
oSpeak.SPEAK(cStr, 1)  && 1异步，0同步
? "按任一键......暂停"
INKEY(0)
oSpeak.Pause()
? "按任一键......恢复"
INKEY(0)
oSpeak.Resume()
? "按任一键......结束"
INKEY(0)
RELEASE oSpeak
? "按任一键......"
INKEY(0)

找了很长时间没有找到这些参数，真的非常感谢！

文字转语音的我学会了，我想要一个语音转文字的，代码怎么写？