MSWord/macro.vba at main · learnitive/MSWord · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
' This is a macro that will communicate with the Learnitive API in Microsoft Word.
' Just copy/paste this macro into Word following instructions in the Readme.md file.
' Don't forget to change the API key to your own.
' Original Author: Johann Dowa
' Updated by: Learnitive 2023
' MIT license

Function UnescapeString(ByVal str As String) As String
    Dim i As Integer
    Dim output As String
    For i = 1 To Len(str)
        If Mid(str, i, 2) = "\\" Then
            output = output & "\"
            i = i + 1
        ElseIf Mid(str, i, 2) = "\/" Then
            output = output & "/"
            i = i + 1
        ElseIf Mid(str, i, 2) = "\n" Then
            output = output & vbCrLf
            i = i + 1
        ElseIf Mid(str, i, 2) = "\r" Then
            output = output & vbCr
            i = i + 1
        ElseIf Mid(str, i, 2) = "\t" Then
            output = output & vbTab
            i = i + 1
        ElseIf Mid(str, i, 2) = "\" & Chr(34) Then
            output = output & """"
            i = i + 1
        Else
            output = output & Mid(str, i, 1)
        End If
    Next i
    UnescapeString = output
End Function

Sub Learnitive()
    '
    ' Learnitive AI Macro
    '

    Dim apiUrl As String
    Dim requestPayload As String
    Dim apiKey As String
    Dim httpRequest As Object
    Dim responseText As String
    Dim content As String
    Dim startIndex As Integer
    Dim endIndex As Integer

    '    content = InputBox("Enter your input", "Content")
    content = Replace(Selection, ChrW$(13), "")


    ' Change the key below to your own Learnitive API key
    apiKey = "YOUR-LEARNITIVE-API-KEY"

    ' Modify the API parameter as required. Models available: fast, balanced, strong and expert.
    model = "fast"
    max_tokens = "100"
    temperature = ".7"

    ' API endpoint url, learn more at https://www.learnitive.com/ai-api
    apiUrl = "https://www.learnitive.com/api/v1/contents"

    lang = "en"
    requestPayload = "{""input"":""" & content & """, ""model"":""" & model & """, ""lang"":""" & lang & """ , ""max_tokens"":""" & max_tokens & """, ""temperature"":""" & temperature & """ }"


    Set httpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
    httpRequest.Open "POST", apiUrl, False
    httpRequest.setRequestHeader "Content-Type", "application/json"

    httpRequest.setRequestHeader "api-key", "" & apiKey
    On Error Resume Next
    httpRequest.send requestPayload
    On Error GoTo 0

    If httpRequest.Status <> 200 Then
        MsgBox "Error: " & httpRequest.Status & " " & httpRequest.StatusText
        Exit Sub
    End If

    responseText = httpRequest.responseText
    startPos = InStr(responseText, """text"":""") + 8

    endPos = InStr(responseText, """id"":""") - 2

    responseText = Trim(UnescapeString(Mid(responseText, startPos, endPos - startPos + 1)))

    Dim wdApp As Word.Application
    Set wdApp = GetObject(, "Word.Application")
    wdApp.Selection.Text = responseText
    Set httpRequest = Nothing


End Sub