hs0000t

感谢 chatgpt ，帮我解决了这个近一年前的问题

```vba
Sub RestoreChineseCharacters()
'使用 WinHttp 对象下载 JSON 文件并读取内容
Dim url As String
url = "https://github.com/ritajie/kangxi_i_know_you/blob/master/dict.json?raw=true"
Dim httpRequest As Object
Set httpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
httpRequest.Open "GET", url, False
httpRequest.send
Dim jsonFileContent As String
jsonFileContent = httpRequest.responseText

'解析 JSON 内容并保存到字典中
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
Dim startPos As Long
Dim endPos As Long
Dim key As String
Dim value As String
startPos = InStr(jsonFileContent, Chr(34)) + 1
Do While startPos > 0
endPos = InStr(startPos + 1, jsonFileContent, Chr(34))
key = Mid(jsonFileContent, startPos, endPos - startPos)
startPos = InStr(endPos + 1, jsonFileContent, Chr(34)) + 1
endPos = InStr(startPos + 1, jsonFileContent, Chr(34))
value = Mid(jsonFileContent, startPos, endPos - startPos)
dict.Add key, value
startPos = InStr(endPos + 1, jsonFileContent, Chr(34)) + 1
Loop

'遍历 Word 文档内容并替换“康熙部首”编码
Dim doc As Document
Set doc = ActiveDocument
Dim para As Paragraph
Dim text As String
For Each para In doc.Paragraphs
text = para.Range.Text
Dim k As Variant
For Each k In dict.Keys
text = Replace(text, k, dict(k))
Next k
para.Range.Text = text
Next para
End Sub
```

5 天前

回复了 aceinnes 创建的主题 › 问与答 › 2023 年百兆宽带够用吗

@dengshen 有个东西叫迅雷快鸟，相当于运营商把这部分业务包给第三方做了

10 天前

回复了 wsz66 创建的主题 › 问与答 › 找一个生成代码的工具

navicat?

11 天前

回复了 zhangfeiwudi 创建的主题 › 问与答 › 各位老鸽们，有家用服务器推荐吗？

4C4G 三年 140 的路过

57 天前

回复了 mmr 创建的主题 › 问与答 › 各位如何评价 2023 拜年祭？

泻药，不看

64 天前

回复了 gowl 创建的主题 › 问与答 › 国内有什么好的软件或者服务值得购买么？（仅考虑虚拟产品）

白描滴答清单

72 天前

回复了 Damow 创建的主题 › Docker › 我在 NAS，用 Docker 安装了 QBittorrent，发现内存占用过高，求解决方法。

群晖的话，可以试试不用 docker ，套件中心加个第三方源，然后直接安装套件，用了几个月了没遇到什么问题

» hs0000t 创建的更多回复