ChatGPT KI in Microsoft Word

Es existieren viele Möglichkeiten, ChatGPT oder vergleichbare KI-Lösungen in Microsoft Word (Desktop-Version) einzubinden. Je nach Anforderungen an Datenschutz und DSGVO-Konformität bieten sich unterschiedliche Ansätze an:

🧠 1. Microsoft Copilot für Word

Beschreibung:
Direkt integrierte KI-Funktion in Word (Teil von Microsoft 365 Copilot), basiert auf GPT-4/4o von OpenAI und ist in Microsofts Cloud eingebettet.

Funktionen:

• Textvorschläge, Zusammenfassungen, Umformulierungen
• Generierung von E-Mails, Verträgen, Berichten
• Analyse und Ideengebung in Echtzeit

Eignung für sensible Daten:
✅ Ja – wenn die Microsoft 365 Umgebung DSGVO-konform eingerichtet ist

DSGVO-Konformität:
✅ Ja – sofern Datenverarbeitung in der EU-Region erfolgt und ein Auftragsverarbeitungsvertrag (AVV) mit Microsoft abgeschlossen wurde

🧩 2. Eigene VBA-/Office-Add-in-Lösung mit OpenAI API

Beschreibung:
Word kann mit VBA oder benutzerdefinierten Add-ins (Office.js) erweitert werden, um OpenAI oder andere LLMs über HTTP-Requests anzusprechen.

Funktionen:

• Texte generieren oder zusammenfassen
• Stilprüfungen, Umformulierungen
• KI-unterstützte Vorlagen

Eignung für sensible Daten:
❌ Nicht geeignet – Daten werden an OpenAI-Server (USA) gesendet

DSGVO-Konformität:
⚠️ Eingeschränkt – kein AVV mit OpenAI, auch bei „Zero Data Retention“ verbleibt ein Restrisiko

☁️ 3. Azure OpenAI mit Office-Skripten oder benutzerdefinierten Add-ins

Beschreibung:
Eigene KI-Integration über Azure OpenAI-Instanz (EU-Region) + Word-Add-ins oder Office-JavaScript-API.

Funktionen:

• Firmeninterne ChatGPT-Instanz
• Anbindung an Vorlagen, Textbausteine
• Verwendung über Word-Menü oder Kontextmenü

Eignung für sensible Daten:
✅ Ja – volle Kontrolle über Datenverarbeitung, EU-Rechenzentren

DSGVO-Konformität:
✅ Ja – bei korrekter Konfiguration und AVV mit Microsoft Azure

🖥️ 4. Lokale Sprachmodelle (z. B. GPT4All, ollama, Mistral, LM Studio)

Beschreibung:
Offene Modelle lokal auf Windows-PC oder Server, Anbindung per Word-Makros, Add-ins oder Zwischenablage (Clipboard-Helper).

Funktionen:

• Komplett offline
• Verarbeitung direkt im lokalen Netzwerk
• Integration über PowerShell, VBA oder REST-API zu lokalem Server

Eignung für sensible Daten:
✅ Sehr gut geeignet – volle Datenkontrolle, kein externer Zugriff

DSGVO-Konformität:
✅ Ja – keine externe Datenübertragung

🔐 Vergleich

Lösung	Für sensible Daten geeignet?	DSGVO-konform?	Bemerkung
Microsoft Copilot für Word	✅ Ja	✅ Ja	Komfortabel und nahtlos, aber lizenzpflichtig
Azure OpenAI + Word-Add-in	✅ Ja	✅ Ja	Flexibel und sicher bei sensiblen Daten
Lokales GPT-Modell	✅ Ja	✅ Ja	Höchste Sicherheit, aber mehr technischer Aufwand
OpenAI API (VBA/Add-in)	❌ Nein	⚠️ Eingeschränkt	Gut für interne Tests, nicht für echte Daten

👇 Komplettes VBA-Beispiel für Microsoft Word (Desktop)

Hier ist ein komplettes VBA-Beispiel für Microsoft Word (Desktop), mit dem Du per Knopfdruck eine Anfrage an OpenAI GPT-3.5 oder GPT-4 senden kannst. Die Antwort wird direkt im Dokument eingefügt – etwa unter der aktuellen Cursorposition.

🧰 Voraussetzungen

1. API-Key von OpenAI: https://platform.openai.com/account/api-keys
2. Verweise aktivieren in Word-VBA:
   • Öffne den VBA-Editor mit ALT + F11
   • Menü: Extras > Verweise...
   • Aktiviere:
     • ✅ Microsoft XML, v6.0
     • ✅ Microsoft Scripting Runtime
3. JSON-Parser installieren (einmalig):
   • Lade JsonConverter.bas hier:
     👉 https://github.com/VBA-tools/VBA-JSON
   • Importiere sie im VBA-Editor: Datei > Datei importieren…

🧾 Der VBA-Code

Sub AnfrageAnOpenAI()
    Dim apiKey As String
    Dim prompt As String
    Dim responseText As String
    
    ' Trage hier deinen API-Key ein
    apiKey = "sk-..."  ' <<< DEIN API KEY >>>

    ' Den markierten Text als Prompt verwenden oder fixen Text
    If Selection.Type = wdSelectionNormal Then
        prompt = Selection.Text
    Else
        prompt = InputBox("Was möchtest du ChatGPT fragen?")
    End If
    
    ' Anfrage senden
    responseText = GPT_Chat(apiKey, "gpt-3.5-turbo", prompt)
    
    ' Antwort einfügen
    Selection.Collapse wdCollapseEnd
    Selection.TypeParagraph
    Selection.TypeText Text:="Antwort von ChatGPT:"
    Selection.TypeParagraph
    Selection.TypeText Text:=responseText
End Sub

Function GPT_Chat(apiKey As String, model As String, prompt As String) As String
    Dim http As New MSXML2.XMLHTTP60
    Dim json As New Dictionary
    Dim messages As New Collection
    Dim message As New Dictionary
    Dim requestBody As String
    Dim responseJson As Object
    Dim url As String
    
    url = "https://api.openai.com/v1/chat/completions"
    
    ' Nachricht aufbauen
    message.Add "role", "user"
    message.Add "content", prompt
    messages.Add message
    
    json.Add "model", model
    json.Add "messages", messages
    json.Add "temperature", 0.7
    
    requestBody = JsonConverter.ConvertToJson(json)
    
    ' HTTP POST an OpenAI
    With http
        .Open "POST", url, False
        .setRequestHeader "Content-Type", "application/json"
        .setRequestHeader "Authorization", "Bearer " & apiKey
        .Send requestBody
    End With

    ' Antwort verarbeiten
    Set responseJson = JsonConverter.ParseJson(http.responseText)
    
    On Error Resume Next
    GPT_Chat = responseJson("choices")(1)("message")("content")
    On Error GoTo 0
End Function

🧪 Beispielnutzung

1. Öffne ein leeres Word-Dokument.
2. Markiere z. B. die Frage:
   „Erkläre mir den Unterschied zwischen SQL und NoSQL in einfachen Worten.“
3. Führe das Makro AnfrageAnOpenAI aus.
4. Die Antwort wird direkt unter der Markierung eingefügt.

⚠️ Datenschutz-Hinweis

• Der markierte oder eingegebene Text wird über das Internet an OpenAI in die USA gesendet.
• Verwende keine sensiblen oder personenbezogenen Daten!
• Diese Lösung ist nicht DSGVO-konform bei vertraulichen Inhalten.