Sub朗读选定文本()
''说明：
''“&”是字符串表达式、变量表达式、数值表达式、换行表达式及回车表达式之间的连接符号；
''字符串表达式要用英文双引号引用，其它则不要；
''Chr(10)表示换行，Chr(13)表示回车；
''
IfSelection.Start=Selection.EndThen
MsgBox"您没有选择，"&Chr(10)&"请先选择要执行的区域！",1,"请注意："
ExitSub''退出sub循环
EndIf
''下面一行代码是调用windows语音朗读选定的文本
CreateObject("SAPI.SpVoice").SpeakSelection
EndSub
Sub朗读选定文本()
''说明：
''“&”是字符串表达式、变量表达式、数值表达式、换行表达式及回车表达式之间的连接符号；
''字符串表达式要用英文双引号引用，其它则不要；
''Chr(10)表示换行，Chr(13)表示回车；
''
IfSelection.Start=Selection.EndThen
MsgBox"您没有选择，"&Chr(10)&"请先选择要执行的区域！",1,"请注意："
ExitSub''退出sub循环
EndIf
DimaAsString
a=Selection
''下面一行代码是调用windows语音朗读选定的文本
CreateObject("SAPI.SpVoice").Speaka
EndSub |
|
