使用EXCEL VBA辅助背单词.可以一键获取音标和翻译，可播放英音美音 |
您所在的位置：网站首页 › pauline的音标 › 使用EXCEL VBA辅助背单词.可以一键获取音标和翻译，可播放英音美音 |
使用EXCEL VBA辅助背单词.可以一键获取音标和翻译，可播放英音美音
|
一、概要
通过excel辅助背单词，当前只简单实现美音、英音和一键获取音标和解释 20230129更新： 1：优化【一键获取音标和解释】，根据词性自动换行。 2：支持短语可进行翻译，部分短语可获取音标。 效果如图： 1、自动翻译
英音美音自动发音 二、实现方法 1、必要条件 1.1 开启excel宏！参考：【VBA】excel开启宏，打开开发者模式_vba宏的免费启用方法-CSDN博客 1.2 必须连接互联网！ 2、代码 2.1 一键获取音标和解释 Sub onestepget() Dim url As String '创建XMLHTTP对象 Set http = CreateObject("MSXML2.XMLHTTP") '设置URL url = "https://dict.youdao.com/jsonapi?q=" & Selection.value '发送GET请求 http.Open "GET", url, False http.setRequestHeader "Content-Type", "application/json" http.send '获取响应数据 response = http.responseText ' 定义JSON字符串，这通常是从某个来源（例如API请求）获取到的 Dim jsonString As String jsonString = response ' 使用Scripting.Dictionary Dim json As Object Set json = JsonConverter.ParseJson(jsonString) ' 获取音标 Dim usphone As String Dim ukphone As String usphone = json("ec")("word")(1)("usphone") '获取美式音标 ukphone = json("ec")("word")(1)("ukphone") '获取英式音标 Selection.Offset(0, 1).value = "英[" & ukphone & "]" & vbCrLf & "美[" & usphone & "]" Dim trans1 As String Dim trans2 As String Dim trans3 As String Dim trans4 As String Dim trans5 As String Dim i As Byte Dim j As Byte j = json("ec")("word")(1)("trs").Count For i = 1 To j Select Case i Case 1 trans1 = json("ec")("word")(1)("trs")(i)("tr")(1)("l")("i")(1) Selection.Offset(0, 2).value = trans1 Case 2 trans2 = json("ec")("word")(1)("trs")(i)("tr")(1)("l")("i")(1) Selection.Offset(0, 2).value = trans1 & vbCrLf & trans2 Case 3 trans3 = json("ec")("word")(1)("trs")(i)("tr")(1)("l")("i")(1) Selection.Offset(0, 2).value = trans1 & vbCrLf & trans2 & vbCrLf & trans3 Case 4 trans4 = json("ec")("word")(1)("trs")(i)("tr")(1)("l")("i")(1) Selection.Offset(0, 2).value = trans1 & vbCrLf & trans2 & vbCrLf & trans3 & vbCrLf & trans4 Case 5 trans5 = json("ec")("word")(1)("trs")(i)("tr")(1)("l")("i")(1) Selection.Offset(0, 2).value = trans1 & vbCrLf & trans2 & vbCrLf & trans3 & vbCrLf & trans4 & vbCrLf & trans5 End Select Next 2.2 通过有道云接口获取音频文件，并通过windows Media Player进行播放 Sub playUK() '获取读音音频文件 Sheets("sheet2").WindowsMediaPlayer1.url = "http://dict.youdao.com/dictvoice?audio=" & Selection.value & "&type=1" '播放音频 Sheets("sheet2").WindowsMediaPlayer1.Controls.play End Sub Sub playUN() Sheets("sheet2").WindowsMediaPlayer1.url = "http://dict.youdao.com/dictvoice?audio=" & Selection.value & "&type=2" Sheets("sheet2").WindowsMediaPlayer1.Controls.play '播放 End Sub 感兴趣的话收藏点赞关注留言继续更新实现方法或者自己可以研究一下，资源免费： 链接地址： CSDN：【免费】通过excel辅助背英文单词、一键生成解释、实现美音英音发音资源-CSDN文库 百度云： 链接：https://pan.baidu.com/s/1ii4nVanVboZEHOMEmeoWlg 提取码：g0fk |
【本文地址】
今日新闻 |
推荐新闻 |