{"id":55836,"date":"2025-02-19T08:21:40","date_gmt":"2025-02-19T00:21:40","guid":{"rendered":"https:\/\/fwq.ai\/blog\/55836\/"},"modified":"2025-02-19T08:21:40","modified_gmt":"2025-02-19T00:21:40","slug":"%e5%9c%a8word%e4%b8%ad%e5%85%8d%e8%b4%b9%e4%bd%bf%e7%94%a8%e4%b8%90%e7%89%88copilot%ef%bc%8c%e8%be%85%e5%8a%a9%e6%96%87%e6%9c%ac%e7%bb%ad%e5%86%99","status":"publish","type":"post","link":"https:\/\/fwq.ai\/blog\/55836\/","title":{"rendered":"\u5728word\u4e2d\u514d\u8d39\u4f7f\u7528\u4e10\u7248copilot\uff0c\u8f85\u52a9\u6587\u672c\u7eed\u5199"},"content":{"rendered":"

\u5bf9\u4e8e\u4e70\u4e0d\u8d77copilot\u4f1a\u5458\u6216WPS AI\u4f1a\u5458\u7684\u670b\u53cb\uff0c\u8fd8\u60f3\u4f53\u9a8c\u5728\u6587\u6863\u4e2d\u7eed\u5199\u6587\u672c\uff0c\u53ef\u4ee5\u901a\u8fc7\u5b8f\u4ee3\u7801\u5b9e\u73b0\u3002<\/p>\n

 <\/p>\n

<\/p>\n

\u4e0b\u9762\u9488\u5bf9MacOS\u548cWindows\u63a8\u51fa\u4e24\u4e2a\u7248\u672c\uff1a<\/p>\n<\/p>\n

\"\u5728word\u4e2d\u514d\u8d39\u4f7f\u7528\u4e10\u7248copilot\uff0c\u8f85\u52a9\u6587\u672c\u7eed\u5199\u63d2\u56fe\"
\n\"\u5728word\u4e2d\u514d\u8d39\u4f7f\u7528\u4e10\u7248copilot\uff0c\u8f85\u52a9\u6587\u672c\u7eed\u5199\u63d2\u56fe1\"
\n\u6b64\u5904\u5185\u5bb9\u5df2\u7ecf\u88ab\u4f5c\u8005\u9690\u85cf\uff0c\u8bf7\u8f93\u5165\u9a8c\u8bc1\u7801\u67e5\u770b\u5185\u5bb9<\/span>
\n\u9a8c\u8bc1\u7801\uff1a<\/span>
\n\u8bf7\u5173\u6ce8\u672c\u7ad9\u5fae\u4fe1\u516c\u4f17\u53f7\uff0c\u56de\u590d\u201c\u9a8c\u8bc1\u7801<\/span>\u201d\uff0c\u83b7\u53d6\u9a8c\u8bc1\u7801\u3002\u5728\u5fae\u4fe1\u91cc\u641c\u7d22\u201c\u9996\u5e2dAI\u5206\u4eab\u5708<\/span>\u201d\u6216\u8005\u201cLooks-AI<\/span>\u201d\u6216\u8005\u5fae\u4fe1\u626b\u63cf\u53f3\u4fa7\u4e8c\u7ef4\u7801\u90fd\u53ef\u4ee5\u5173\u6ce8\u672c\u7ad9\u5fae\u4fe1\u516c\u4f17\u53f7\u3002<\/span> <\/p>\n

 <\/p>\n

1.\u8bf7\u4fee\u6539API\u5bc6\u94a5\uff0c\u6362\u6210\u514d\u8d39\u6a21\u578b<\/p>\n

2.\u57fa\u672c\u7528\u6cd5\u5c31\u662f\u5148\u9009\u4e2d\u6587\u672c\uff0c\u7136\u540e\u6309Alt + F8<\/code>\u8c03\u51fa\u5b8f\u64cd\u4f5c, \u9009\u62e9 <\/code>\u5373\u53ef\u3002<\/p>\n

 <\/p>\n

\u6838\u5fc3\u4ee3\u7801<\/p>\n

Sub chatGPTWord()\r\n\n    Dim request As Object\r\n    Dim text As String, response As String, API As String, api_key As String, DisplayText As String, error_result As String\r\n    Dim startPos As Long, status_code As Long\r\n    Dim prompt As String\r\n    Dim selectedText As Range\r\n\n    API = \"https:\/\/open.bigmodel.cn\/api\/paas\/v4\/chat\/completions\"\r\n    \r\n    'Enter Your API Key\r\n    api_key = \"\u8bf7\u5728\u667a\u8c31\u6e05\u8a00open.bigmodel.cn\u83b7\u53d6\u60a8\u81ea\u5df1\u7684 API KEY\"\r\n    \r\n    'Model Name\r\n    modelName = \"glm-4-plus\"\r\n\n    systemPrompt = \"You are a helpful chat bot that has expertise in WORD. Do not write explanations on replies. Output should be markdown format without markdown.\"\r\n\n    If api_key = \"\" Then\r\n        MsgBox \"Error: API key is blank!\"\r\n        Exit Sub\r\n    End If\r\n    \r\n    ' Prompt the user to select text in the document\r\n    If Selection.Type <> wdSelectionIP Then\r\n        prompt = Trim(Selection.text)\r\n        Set selectedText = Selection.Range\r\n    Else\r\n        MsgBox \"\u8bf7\u5148\u9009\u62e9\u5185\u5bb9\uff01\"\r\n        Exit Sub\r\n    End If\r\n        \r\n    'Cleaning\r\n    text = Replace(prompt, Chr(34), Chr(39))\r\n    text = Replace(text, vbLf, \"\")\r\n    text = Replace(text, vbCr, \"\")\r\n    text = Replace(text, vbCrLf, \"\")\r\n\n    ' Remove selection\r\n    Selection.Collapse\r\n\n    'Create an HTTP request object\r\n    Set request = CreateObject(\"MSXML2.XMLHTTP\")\r\n    With request\r\n        .Open \"POST\", API, False\r\n        .setRequestHeader \"Content-Type\", \"application\/json\"\r\n        .setRequestHeader \"Authorization\", \"Bearer \" & api_key\r\n        .send \"{\"\"model\"\":\"\"\" & modelName & \"\"\",  \"\"messages\"\": [{\"\"content\"\":\"\"\" & systemPrompt & \"\"\",\"\"role\"\":\"\"system\"\"},{\" & _\r\n                    \"\"\"content\"\":\"\"\" & text & \"\"\",\"\"role\"\":\"\"user\"\"}],\"\"temperature\"\": 1}\"\r\n            status_code = .Status\r\n            response = .responseText\r\n    End With\r\n      'Extract content\r\n    If status_code = 200 Then\r\n      DisplayText = ExtractContent(response)\r\n                \r\n      'Insert response text into Word document\r\n      selectedText.InsertAfter vbNewLine & ConvertMarkdownToWord(DisplayText)\r\n\n        \r\n    Else\r\n        startPos = InStr(response, \"\"\"message\"\": \"\"\") + Len(\"\"\"message\"\": \"\"\")\r\n        endPos = InStr(startPos, response, \"\"\"\")\r\n        If startPos > Len(\"\"\"message\"\": \"\"\") And endPos > startPos Then\r\n            DisplayText = Mid(response, startPos, endPos - startPos)\r\n        Else\r\n            DisplayText = \"\"\r\n        End If\r\n        \r\n        'Insert error message into Word document\r\n        EDisplayText = \"Error : \" & DisplayText\r\n        selectedText.InsertAfter vbNewLine & EDisplayText\r\n        \r\n    End If\r\n    \r\n    \r\n    'Clean up the object\r\n    Set request = Nothing\r\n\nEnd Sub<\/pre>\n
 <\/p>\n
Function ExtractContent(jsonString As String) As String\r\n    Dim startPos As Long\r\n    Dim endPos As Long\r\n    Dim Content As String\r\n    \r\n    '{\"choices\":[{\"finish_reason\":\"stop\",\"index\":0,\"message\":{\"content\":\"<html>\\n<head>\\n<title>Chat Bot Introduction<\/title>\\n<\/head>\\n<body>\\n<h1>Hello!<\/h1>\\n<p>I am a helpful chat bot with expertise in HTML.<\/p>\\n<\/body>\\n<\/html>\",\"role\":\"assistant\"}}],\"\"\r\n    \r\n    startPos = InStr(1, jsonString, \"\"\"content\"\":\"\"\") + Len(\"\"\"content\"\": \"\"\")\r\n    endPos = InStr(startPos, jsonString, \",\"\"role\"\":\"\"\") - 2\r\n    Content = Mid(jsonString, startPos, endPos - startPos)\r\n    Content = Trim(Replace(Content, \"\\\"\"\", Chr(34)))\r\n        \r\n    Content = Replace(Content, vbCrLf, \"\")\r\n    Content = Replace(Content, vbLf, \"\")\r\n    Content = Replace(Content, vbCr, \"\")\r\n    Content = Replace(Content, \"\\n\", vbCrLf)\r\n     \r\n    If Right(Content, 1) = \"\"\"\" Then\r\n      Content = Left(Content, Len(Content) - 1)\r\n    End If\r\n    \r\n    ExtractContent = Content\r\n\nEnd Function\r\n\nFunction ConvertMarkdownToWord(markdownText As String)\r\n    Dim lines() As String\r\n    Dim i As Long\r\n    Dim line As String\r\n    Dim headerLevel As Integer\r\n    Dim currentParagraph As Range\r\n    Dim table As table\r\n    Dim cellContent() As String\r\n    Dim numRows As Long\r\n    Dim numColumns As Long\r\n    \r\n    ' \u5c06 Markdown \u6587\u672c\u6309\u884c\u5206\u5272\r\n    lines = Split(markdownText, vbCr)\r\n    \r\n    On Error Resume Next\r\n    ' \u904d\u5386\u6bcf\u4e00\u884c\u5e76\u5904\u7406\r\n    For i = 0 To UBound(lines)\r\n        line = Trim(lines(i))\r\n        \r\n        ' \u5904\u7406\u6807\u9898\r\n        If Left(line, 1) = \"#\" Then\r\n            headerLevel = 0\r\n            Do While Mid(line, headerLevel + 1, 1) = \"#\"\r\n                headerLevel = headerLevel + 1\r\n            Loop\r\n            ' \u521b\u5efa\u6807\u9898\u6bb5\u843d\r\n            Set currentParagraph = ActiveDocument.Content\r\n            currentParagraph.Collapse Direction:=wdCollapseEnd\r\n            currentParagraph.InsertAfter Trim(Replace(line, \"#\", \"\")) & vbCrLf\r\n            currentParagraph.Style = ActiveDocument.Styles(\"\u6807\u9898 \" & headerLevel)\r\n        \r\n        ' \u5904\u7406\u7c97\u4f53\r\n        ElseIf InStr(line, \"**\") > 0 Then\r\n            line = Replace(line, \"**\", \"\")\r\n            Set currentParagraph = ActiveDocument.Content\r\n            currentParagraph.Collapse Direction:=wdCollapseEnd\r\n            currentParagraph.InsertAfter line & vbCrLf\r\n            currentParagraph.Font.Bold = True\r\n        \r\n        ' \u5904\u7406\u659c\u4f53\r\n        ElseIf InStr(line, \"*\") > 0 Then\r\n            line = Replace(line, \"*\", \"\")\r\n            Set currentParagraph = ActiveDocument.Content\r\n            currentParagraph.Collapse Direction:=wdCollapseEnd\r\n            currentParagraph.InsertAfter line & vbCrLf\r\n            currentParagraph.Font.Italic = True\r\n        \r\n        ' \u5904\u7406\u65e0\u5e8f\u5217\u8868\r\n        ElseIf Left(line, 1) = \"-\" Or Left(line, 1) = \"*\" Then\r\n            Set currentParagraph = ActiveDocument.Content\r\n            currentParagraph.Collapse Direction:=wdCollapseEnd\r\n            currentParagraph.InsertAfter Trim(Mid(line, 2)) & vbCrLf ' \u53bb\u6389\u524d\u9762\u7684\u7b26\u53f7\r\n            currentParagraph.ListFormat.ApplyBulletDefault\r\n        \r\n        ' \u5904\u7406\u6709\u5e8f\u5217\u8868\r\n        ElseIf IsOrderedList(line) Then\r\n            Set currentParagraph = ActiveDocument.Content\r\n            currentParagraph.Collapse Direction:=wdCollapseEnd\r\n            currentParagraph.InsertAfter Trim(line) & vbCrLf\r\n            currentParagraph.ListFormat.ApplyNumberDefault\r\n        \r\n        ' \u5904\u7406\u94fe\u63a5\r\n        ElseIf InStr(line, \"[\") > 0 And InStr(line, \"]\") > 0 Then\r\n            Dim linkText As String\r\n            Dim linkURL As String\r\n            linkText = Mid(line, InStr(line, \"[\") + 1, InStr(line, \"]\") - InStr(line, \"[\") - 1)\r\n            linkURL = Mid(line, InStr(line, \"(\") + 1, InStr(line, \")\") - InStr(line, \"(\") - 1)\r\n            Set currentParagraph = ActiveDocument.Content\r\n            currentParagraph.Collapse Direction:=wdCollapseEnd\r\n            currentParagraph.InsertAfter linkText & vbCrLf\r\n            ActiveDocument.Hyperlinks.Add Anchor:=currentParagraph, Address:=linkURL, TextToDisplay:=linkText\r\n        \r\n        ' \u5904\u7406\u8868\u683c\r\n        ElseIf IsMarkdownTable(lines, i) Then\r\n            ' \u5904\u7406\u8868\u683c\r\n            ConvertMarkdownToTable lines, i\r\n            ' \u8df3\u8fc7\u8868\u683c\u7684\u884c\r\n            i = i + CountRows(lines, i) + 1 ' \u8df3\u8fc7\u8868\u5934\u548c\u5206\u9694\u884c\r\n        ' \u5904\u7406\u666e\u901a\u6bb5\u843d\r\n        Else\r\n            Set currentParagraph = ActiveDocument.Content\r\n            currentParagraph.Collapse Direction:=wdCollapseEnd\r\n            currentParagraph.InsertAfter line & vbCrLf\r\n        End If\r\n    Next i\r\nEnd Function\r\n\nFunction IsOrderedList(line As String) As Boolean\r\n    Dim parts() As String\r\n    parts = Split(line, \".\")\r\n    \r\n    ' \u68c0\u67e5\u662f\u5426\u4ee5\u6570\u5b57\u5f00\u5934\u5e76\u4e14\u540e\u9762\u8ddf\u7740\u4e00\u4e2a\u70b9\r\n    If UBound(parts) > 0 Then\r\n        If IsNumeric(Trim(parts(0))) And Len(Trim(parts(0))) > 0 Then\r\n            IsOrderedList = True\r\n            Exit Function\r\n        End If\r\n    End If\r\n    \r\n    IsOrderedList = False\r\nEnd Function\r\n\nFunction IsMarkdownTable(lines() As String, ByRef startIndex As Long) As Boolean\r\n    Dim headerLine As String\r\n    Dim separatorLine As String\r\n    \r\n    ' \u68c0\u67e5\u81f3\u5c11\u6709\u4e09\u884c\uff08\u8868\u5934\u3001\u5206\u9694\u884c\u548c\u81f3\u5c11\u4e00\u884c\u6570\u636e\uff09\r\n    If UBound(lines) < 2 Then\r\n        IsMarkdownTable = False\r\n        Exit Function\r\n    End If\r\n    \r\n    headerLine = Trim(lines(startIndex))\r\n    If InStr(headerLine, \"|\") = 0 Then\r\n        IsMarkdownTable = False\r\n        Exit Function\r\n    End If\r\n    \r\n    ' \u68c0\u67e5\u5206\u9694\u884c\u662f\u5426\u5b58\u5728\r\n    If startIndex + 1 > UBound(lines) Then\r\n        IsMarkdownTable = False\r\n        Exit Function\r\n    End If\r\n    \r\n    separatorLine = Trim(lines(startIndex + 1))\r\n    \r\n    IsMarkdownTable = True\r\nEnd Function\r\n\nFunction CountColumns(headerLine As String) As Long\r\n    ' \u8ba1\u7b97\u5217\u6570\uff0c\u53bb\u6389\u7b2c\u4e00\u4e2a\u548c\u6700\u540e\u4e00\u4e2a |\r\n    Dim columns() As String\r\n    columns = Split(headerLine, \"|\")\r\n    CountColumns = UBound(columns) - 1 ' \u51cf\u53bb\u7b2c\u4e00\u4e2a\u548c\u6700\u540e\u4e00\u4e2a\r\nEnd Function\r\n\nFunction CountRows(lines() As String, ByVal startIndex As Long) As Long\r\n    Dim count As Long\r\n    count = 0\r\n    \r\n    ' \u4ece startIndex + 2 \u5f00\u59cb\uff0c\u8df3\u8fc7\u8868\u5934\u548c\u5206\u9694\u884c\r\n    Dim currentIndex As Long\r\n    currentIndex = startIndex + 2 ' \u8df3\u8fc7\u8868\u5934\u548c\u5206\u9694\u884c\r\n\n    ' \u7ee7\u7eed\u68c0\u67e5\u76f4\u5230\u8d85\u51fa\u8fb9\u754c\r\n    Do While currentIndex <= UBound(lines)\r\n        ' \u68c0\u67e5\u5f53\u524d\u884c\u662f\u5426\u4e3a\u6570\u636e\u884c\uff0c\u5ffd\u7565\u5206\u9694\u884c\r\n        If Trim(lines(currentIndex) <> \"\") And InStr(lines(currentIndex), \"|\") > 0 Then\r\n            ' \u5ffd\u7565\u5206\u9694\u884c\r\n            If Trim(InStr(lines(currentIndex), \"|---\") = 0) Then\r\n                count = count + 1\r\n            End If\r\n        Else\r\n            Exit Do ' \u5982\u679c\u9047\u5230\u975e\u8868\u683c\u884c\uff0c\u9000\u51fa\u5faa\u73af\r\n        End If\r\n        currentIndex = currentIndex + 1 ' \u79fb\u52a8\u5230\u4e0b\u4e00\u884c\r\n    Loop\r\n    \r\n    CountRows = count\r\nEnd Function\r\n\nSub ConvertMarkdownToTable(lines() As String, startIndex As Long)\r\n    Dim i As Long\r\n    Dim j As Long\r\n    Dim table As table\r\n    Dim cellContent As Variant\r\n    Dim numRows As Long\r\n    Dim numColumns As Long\r\n    \r\n    ' \u8ba1\u7b97\u884c\u6570\u548c\u5217\u6570\r\n    'numRows = UBound(lines) - startIndex - 1 ' \u51cf\u53bb\u8868\u5934\u548c\u5206\u9694\u884c\r\n    numRows = CountRows(lines, startIndex)\r\n    numColumns = CountColumns(lines(startIndex))\r\n    \r\n    ' \u786e\u4fdd\u884c\u6570\u548c\u5217\u6570\u6709\u6548\r\n    If numRows <= 0 Or numColumns <= 0 Then\r\n        'MsgBox \"\u8868\u683c\u884c\u6570\u6216\u5217\u6570\u65e0\u6548\u3002\", vbExclamation\r\n        Exit Sub\r\n    End If\r\n    \r\n    Set MyRange = ActiveDocument.Content\r\n    MyRange.Collapse Direction:=wdCollapseEnd\r\n    ' \u521b\u5efa Word \u8868\u683c\r\n    Set table = ActiveDocument.Tables.Add(Range:=MyRange, numRows:=numRows + 1, numColumns:=numColumns) ' +1 \u7528\u4e8e\u8868\u5934\r\n\n    'currentParagraph.InsertAfter table & vbCrLf\r\n    \r\n    ' \u586b\u5145\u8868\u5934\r\n    cellContent = Split(lines(startIndex), \"|\")\r\n    For j = 1 To UBound(cellContent) - 1 ' \u4ece 1 \u5f00\u59cb\uff0c\u5ffd\u7565\u7b2c\u4e00\u4e2a |\r\n        On Error Resume Next ' \u5ffd\u7565\u53c2\u6570\u9519\u8bef\r\n        table.Cell(1, j).Range.text = Trim(cellContent(j)) ' \u586b\u5145\u8868\u5934\r\n        On Error GoTo 0 ' \u5173\u95ed\u9519\u8bef\u5ffd\u7565\r\n    Next j\r\n    \r\n    ' \u586b\u5145\u8868\u683c\u6570\u636e\r\n    For i = startIndex + 2 To UBound(lines) ' \u4ece\u6570\u636e\u884c\u5f00\u59cb\u586b\u5145\r\n        cellContent = Split(lines(i), \"|\")\r\n        For j = 1 To UBound(cellContent) - 1 ' \u4ece 1 \u5f00\u59cb\uff0c\u5ffd\u7565\u7b2c\u4e00\u4e2a |\r\n            On Error Resume Next ' \u5ffd\u7565\u53c2\u6570\u9519\u8bef\r\n            table.Cell(i - startIndex, j).Range.text = Trim(cellContent(j)) ' \u586b\u5145\u6570\u636e\r\n            On Error GoTo 0 ' \u5173\u95ed\u9519\u8bef\u5ffd\u7565\r\n        Next j\r\n    Next i\r\n    \r\n    On Error Resume Next\r\n    ' \u8bbe\u7f6e\u8868\u683c\u8fb9\u6846\u4e3a 1\r\n    With table.Borders\r\n        .InsideLineStyle = wdLineStyleSingle\r\n        .OutsideLineStyle = wdLineStyleSingle\r\n        .InsideLineWidth = 1\r\n        .OutsideLineWidth = 1\r\n    End With\r\n         \r\nEnd Sub<\/pre>\n","protected":false},"excerpt":{"rendered":"
\u5bf9\u4e8e\u4e70\u4e0d\u8d77copilot\u4f1a\u5458\u6216WPS AI\u4f1a\u5458\u7684\u670b\u53cb\uff0c\u8fd8\u60f3\u4f53\u9a8c\u5728\u6587\u6863\u4e2d\u7eed\u5199\u6587\u672c\uff0c\u53ef\u4ee5\u901a\u8fc7\u5b8f\u4ee3\u7801\u5b9e\u73b0\u3002   \u4e0b\u9762\u9488\u5bf9MacOS\u548cWindows\u63a8\u51fa\u4e24\u4e2a\u7248\u672c\uff1a \u6b64\u5904\u5185\u5bb9\u5df2\u7ecf\u88ab\u4f5c\u8005\u9690\u85cf\uff0c\u8bf7\u8f93\u5165\u9a8c\u8bc1\u7801\u67e5\u770b\u5185\u5bb9 \u9a8c\u8bc1\u7801\uff1a \u8bf7\u5173\u6ce8\u672c\u7ad9\u5fae\u4fe1\u516c\u4f17\u53f7\uff0c\u56de\u590d\u201c\u9a8c\u8bc1\u7801\u201d\uff0c\u83b7\u53d6\u9a8c\u8bc1\u7801\u3002\u5728\u5fae\u4fe1\u91cc\u641c\u7d22\u201c\u9996\u5e2dAI\u5206\u4eab\u5708\u201d\u6216\u8005\u201cLooks-AI\u201d\u6216\u8005\u5fae\u4fe1\u626b\u63cf\u53f3\u4fa7\u4e8c\u7ef4\u7801\u90fd\u53ef\u4ee5\u5173\u6ce8\u672c\u7ad9\u5fae\u4fe1\u516c\u4f17\u53f7\u3002   1.\u8bf7\u4fee\u6539API\u5bc6\u94a5\uff0c\u6362\u6210\u514d\u8d39\u6a21\u578b 2.\u57fa\u672c\u7528\u6cd5\u5c31\u662f\u5148\u9009\u4e2d\u6587\u672c\uff0c\u7136\u540e\u6309Alt + F8\u8c03\u51fa\u5b8f\u64cd\u4f5c, \u9009\u62e9 \u5373\u53ef\u3002   \u6838\u5fc3\u4ee3\u7801 Sub chatGPTWord()     Dim request As Object     Dim text As String, response As String, API As String, api_key As String, DisplayText As String, error_result As String     Dim startPos As Long, status_code As Long     Dim prompt As String     Dim selectedText As Range     API = “https:\/\/open.bigmodel.cn\/api\/paas\/v4\/chat\/completions”          ‘Enter Your API Key     api_key = “\u8bf7\u5728\u667a\u8c31\u6e05\u8a00open.bigmodel.cn\u83b7\u53d6\u60a8\u81ea\u5df1\u7684 API KEY”          ‘Model Name     modelName = “glm-4-plus”     systemPrompt = “You are a helpful chat bot that has expertise in WORD. Do not write explanations on replies. Output should be markdown format without markdown.”     If api_key = “” Then         MsgBox “Error: API key is blank!”         Exit Sub     End If          ‘ Prompt the user to select text in the document     If Selection.Type <> wdSelectionIP Then         prompt = Trim(Selection.text)         Set selectedText = Selection.Range     Else         MsgBox “\u8bf7\u5148\u9009\u62e9\u5185\u5bb9\uff01”         Exit Sub     End If              ‘Cleaning     text = Replace(prompt, Chr(34), Chr(39))     text = Replace(text, vbLf, “”)     text = Replace(text, vbCr, “”)     text = Replace(text, vbCrLf, “”)     ‘ Remove selection     Selection.Collapse     ‘Create an HTTP request object     Set request = CreateObject(“MSXML2.XMLHTTP”)     With request […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[13],"tags":[],"class_list":["post-55836","post","type-post","status-publish","format-standard","hentry","category-ai"],"_links":{"self":[{"href":"https:\/\/fwq.ai\/blog\/wp-json\/wp\/v2\/posts\/55836","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/fwq.ai\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/fwq.ai\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/fwq.ai\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/fwq.ai\/blog\/wp-json\/wp\/v2\/comments?post=55836"}],"version-history":[{"count":0,"href":"https:\/\/fwq.ai\/blog\/wp-json\/wp\/v2\/posts\/55836\/revisions"}],"wp:attachment":[{"href":"https:\/\/fwq.ai\/blog\/wp-json\/wp\/v2\/media?parent=55836"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/fwq.ai\/blog\/wp-json\/wp\/v2\/categories?post=55836"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/fwq.ai\/blog\/wp-json\/wp\/v2\/tags?post=55836"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}