Warum das sinnvoll ist

Weil Du nicht jedes Mal überlegen willst, ob das jetzt „gewesen ist“ oder „war“.
Oder ob der Ton zu direkt klingt. Oder zu vage.

Mit GPT kannst Du in Word ganze Absätze prüfen, korrigieren und stilistisch anpassen lassen.
Direkt aus dem Dokument. Per VBA. Ohne Cloud-Add-In.

Was Du brauchst

• Word 2024 (mit VBA-Unterstützung)
• OpenAI API-Key oder Azure OpenAI
• Auswahl oder Markierung im Text
• Makro, das den Text nimmt, schickt, und ersetzt

Was GPT prüfen kann

Schritt 1: Text aus Selektion holen

Function HoleAuswahlText() As String
    If Selection.Type = wdNoSelection Then
        MsgBox "Bitte zuerst Text markieren."
        HoleAuswahlText = ""
        Exit Function
    End If
    HoleAuswahlText = Selection.Text
End Function

Schritt 2: GPT aufrufen mit Korrektur-Prompt

Function GPTKorrektur(text As String) As String
    Dim http As Object
    Dim json As String
    Dim apiKey As String
    Dim prompt As String

    apiKey = "DEIN_API_KEY"

    prompt = "Bitte korrigiere diesen deutschen Text auf Grammatik, Zeichensetzung und Stil. " & _
             "Formuliere klar, sachlich und modern:" & vbCrLf & text

    json = "{" & _
        """model"": ""gpt-4""," & _
        """messages"":[{""role"":""user"",""content"":""" & Replace(prompt, """", "\""") & """}]" & _
    "}"

    Set http = CreateObject("MSXML2.ServerXMLHTTP")
    http.Open "POST", "https://api.openai.com/v1/chat/completions", False
    http.setRequestHeader "Content-Type", "application/json"
    http.setRequestHeader "Authorization", "Bearer " & apiKey
    http.Send json

    GPTKorrektur = ExtrahiereAntwort(http.responseText)
End Function

Schritt 3: Antwort auslesen

Function ExtrahiereAntwort(json As String) As String
    Dim sc As Object
    Set sc = CreateObject("ScriptControl")
    sc.Language = "JScript"
    sc.AddCode "function parse(j){return JSON.parse(j).choices[0].message.content;}"
    ExtrahiereAntwort = sc.Run("parse", json)
End Function

Schritt 4: Text ersetzen

Sub TextKorrigieren()
    Dim original As String
    Dim korrekt As String

    original = HoleAuswahlText()
    If original = "" Then Exit Sub

    korrekt = GPTKorrektur(original)

    Selection.Text = korrekt
    MsgBox "Text korrigiert und ersetzt."
End Sub

Erweiterung: Moduswahl per Prompt

Du kannst mehrere Buttons oder Auswahlen bauen:

Sub TextHöflich()
    ' wie oben, nur anderer Prompt
End Sub

Was das bringt

• Du brauchst keine Duden-Suite oder Add-Ins
• GPT kennt Kontext, kann also mehr als nur Korrekturzeichen
• Auch hilfreich für juristische, technische oder formelle Texte

Was Du beachten musst

• GPT hat ein Token-Limit (für sehr lange Dokumente ggf. aufteilen)
• Keine personenbezogenen oder vertraulichen Texte ohne Freigabe
• Ergebnis ist gut, aber nicht immer 100 % korrekt – Gegenlesen empfohlen
• Für Azure OpenAI musst Du den Endpoint und Key anpassen

„Du schreibst – GPT putzt’s glatt.“

Wenn Du Word produktiver machen willst: Sag Bescheid.
Ich bau Dir das so, dass alle nur noch auf „Korrigieren“ klicken. Und durchatmen.