Option Explicit

' 字典存放在工作簿的 "PinyinDict" 工作表
Function GetPinyin(str As String, Optional WithTone As Boolean = True) As String
    Dim i As Long, j As Long
    Dim dict As Object, key As Variant
    Dim ws As Worksheet, cell As Range
    Dim result As String
    
    Set dict = CreateObject("Scripting.Dictionary")
    Set ws = ThisWorkbook.Worksheets("PinyinDict")
    
    ' 读取词典
    For Each cell In ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
        key = cell.Value
        dict(key) = cell.Offset(0, 1).Value
    Next cell
    
    ' 对每个字符进行拆分
    For i = 1 To Len(str)
        key = Mid(str, i, 1)
        If dict.Exists(key) Then
            result = result & dict(key) & " "
        Else
            result = result & key & " "
        End If
    Next i
    
    If Not WithTone Then
        ' 去除声调示例：仅保留拼音字母
        result = Replace(result, "ā", "a")
        result = Replace(result, "á", "a")
        result = Replace(result, "ǎ", "a")
        result = Replace(result, "à", "a")
        ' 继续添加其它声调字母
    End If
    
    GetPinyin = Trim(result)
End Function

let
    Source = Excel.CurrentWorkbook(){[Name="Sheet1"]}[Content],
    AddPinyin = Table.AddColumn(Source, "Pinyin", each 
        let
            word = [中文],
            url = "https://api.baidu.com/api?query=" & Text.EncodeUrl(word) & "&key=YOUR_KEY",
            json = Json.Document(Web.Contents(url)),
            pinyin = json[拼音] // 根据返回结构调整
        in
            pinyin
    )
in
    AddPinyin