ChatGPT最新接入word方法（完美debug）

2、跳出如下界面

3、在其中输入如下代码：

Public previousAnswer As String

Public previousAnswer_time As String

Public character_count As String

Public character_count_time As String

Sub ChatGPTXR_Word()

Dim http As Object

Sethttp = CreateObject("MSXML2.XMLHTTP")

Dimurl As String

url= "https://gpt.sinraytec.cn/chatgpt_word.php"

Dimdata As String

previousAnswer_time = InputBox("请输入你的问题:","ChatGPT New Chat", previousAnswer)

IfpreviousAnswer_time <> "" Then

previousAnswer= previousAnswer_time

EndIf

IfpreviousAnswer_time = "" Then

Exit Sub

EndIf

character_count_time = InputBox("你想生成的最大字符数:","ChatGPT New Chat", character_count)

Ifcharacter_count_time <> "" Then

character_count = character_count_time

EndIf

Ifcharacter_count_time = "" Then

MsgBox "记得输入需要最大的字符数量哈"

Exit Sub

EndIf

data = "prompt=" & previousAnswer_time &"&zishu=" & character_count_time & "&api_key=替换为自己的API"

http.Open "POST", url, False

http.setRequestHeader "Content-Type","application/x-www-form-urlencoded"

http.send data

Dimresult As String

result = http.responseText

Selection.TypeText result

End Sub

注意public与sub的位置关系如下图：

4、【视图】-右击-【自定义功能区】