VBA 代码如下
�
Sub ChatGPT()Dim selectedText As StringDim apiKey As StringDim response
As Object, re As StringDim midString As StringDim ans As StringIf Selection.
Type = wdSelectionNormal ThenselectedText = Selection.TextselectedText = R
eplace(selectedText, ChrW$(13), "")apiKey = "your_api_key"URL = "<https://a
pi.openai.com/v1/chat/completions>"Set response = CreateObject("MSXML2.
XMLHTTP")response.Open "POST", URL, Falseresponse.setRequestHeader "Con
tent-Type", "application/json"response.setRequestHeader "Authorization", "Be
arer " + apiKey
response.Send "{""model"":""gpt-3.5-turbo"", ""messages"":[{""role"":""user"",""c
ontent"":""" & selectedText & """}], ""temperature"":0.7}"re = response.respons
eTextmidString = Mid(re, InStr(re, """content"":""") + 11)ans = Split(midStrin
g, """")(0)ans = Replace(ans, "\\n", "")Selection.Text = selectedText & vbNewLi
ne & ansElseExit SubEnd IfEnd Sub
�
�
如下图所示,将 Api key 粘贴进去
�