word能录音吗？

zzpsx

我想把右键选中后朗读的声音录下来，word可以直接录音吗？

lss001

文本到语音见以下楼层

zzpsx

lss001 发表于 2025-3-27 15:34
Sub 文本到语音() 'word,excel,powerpoint可用
Dim spfilestream As Object, spvoice As Object
Dim sTex ...

谢谢高手，我录制出来的音频卡顿怎么办？

Sub 文本到语音() 'word,excel,powerpoint可用
    Dim spfilestream As Object, spvoice As Object
    Dim sText As String '对象与变量声明

    Set spvoice = CreateObject("SAPI.SpVoice")
    Set spfilestream = CreateObject("SAPI.SpFileStream")

    '指定存放wav(或mp3)文件：<推荐wav格式>
    wavfile = "C:\Users\zzpsx\Desktop\音频1.mp3"
    '打开音频文件, 不存在则创建
    Call spfilestream.Open(wavfile, 3)
    '*********&写入音频文件&**********
    Set spvoice.AudioOutputStream = spfilestream
    sText = Selection.text '当前选定文本
    Call spvoice.Speak(sText) '朗读选定文本
    spfilestream.Close '关闭对象

    Set spvoice = Nothing '释放对象
    Set spfilestream = Nothing
End Sub

zzpsx

音频1.zip (1.2 MB, 下载次数: 2)

2025-3-27 16:25 上传

点击文件名下载附件

这是录制的结果，卡顿怎么办

lss001

zzpsx 发表于 2025-3-27 16:26
这是录制的结果，卡顿怎么办

sText = Selection.Text
'此处加入朗读速度,
'可根据实际调整：最慢-10，最快10

spvoice.Rate = -5 '速度范围：-10至10

zzpsx

lss001 发表于 2025-3-27 17:01
sText = Selection.Text
'此处加入朗读速度,
'可根据实际调整：最慢-10，最快10

Sub 文本到语音() 'word,excel,powerpoint可用
    Dim spfilestream As Object, spvoice As Object
    Dim sText As String '对象与变量声明

    Set spvoice = CreateObject("SAPI.SpVoice")
    Set spfilestream = CreateObject("SAPI.SpFileStream")

    '指定存放wav(或mp3)文件：<推荐wav格式>
    wavfile = "C:\Users\zzpsx\Desktop\音频1.mp3"
    '打开音频文件, 不存在则创建
    Call spfilestream.Open(wavfile, 3)
    '*********&写入音频文件&**********
    Set spvoice.AudioOutputStream = spfilestream
    sText = Selection.text '当前选定文本
    '此处加入朗读速度,
    '可根据实际调整：最慢-10，最快10
    spvoice.Rate = -5 '速度范围：-10至10
    Call spvoice.Speak(sText) '朗读选定文本
    spfilestream.Close '关闭对象

    Set spvoice = Nothing '释放对象
    Set spfilestream = Nothing
End Sub

谢谢，太好了。
我还有个疑问，这个卡顿可能并非速度快慢引起。因为代码运行非常快，正常文本转语音的话，没这么快的。

lss001

zzpsx 发表于 2025-3-28 08:51
Sub 文本到语音() 'word,excel,powerpoint可用
    Dim spfilestream As Object, spvoice As Object
...

如果需要自定义录音
可以参考N年前的帖子4楼代码
https://club.excelhome.net/forum ... extra=&mobile=2