一键合成音频+Excel批量生成txt文件

一键合成音频+Excel批量生成txt文件

音频合成工具

最近需要做一些英文音频，便找了找相关的方法或工具，比较顺利，分享给大家。
github链接： 音频合成工具
工具中调用Azure的tts接口，应该对IP的访问有次数限制，如果被限制了，可以换个网络环境，用手机开个热点等。

进去之后点这里：

下载这个压缩包，

解压安装，

打开是这样的页面，

可以试听一下云希的声音，和某些短视频的配音几乎一样。

Excel批量生成txt文件

我需要批量生成音频文件，但工具支持选择的文件格式是.txt;

下面的代码是使用excel宏批量生成txt文件，它会将表格B列第二行开始的内容作为文件名，创建txt文件，将B列每一行所对应的C列中的内容存放到文件中；需要注意的是，存放内容的编码格式是UTF-8，上面的工具只识别GBK格式的中文；

Sub test()
    Dim fso As Object
    Dim myTxt As Object
    Dim MyFName As String
    Dim i As Long, j As Long
    Set fso = CreateObject("Scripting.FileSystemObject")
    For i = 2 To [B1].End(xlDown).Row
            MyFName = ThisWorkbook.Path & "/" & Cells(i, 2) & ".txt"
            Set myTxt = fso.CreateTextFile(Filename:=MyFName, OverWrite:=True)
                myTxt.write Cells(i, 3)
    Next
    myTxt.Close
    Set myTxt = Nothing
    Set fso = Nothing
End Sub

运行宏：

选择文件，并设置好下载路径，点击转换：