Vorweg: Copilot ist kein VBA-Objekt

Du kannst Copilot in Word, Excel oder Outlook nicht direkt per Application.Copilot ansprechen.
Microsoft hat (noch) keine API dafür veröffentlicht.

Aber: Du kannst Kontext vorbereiten, Inhalte automatisch einfügen
und so den Copilot indirekt „füttern“.

Ein bisschen wie ein gut trainierter Azubi. Du gibst das Material, Copilot macht den Rest.

Szenario: Access bereitet Inhalte für Word Copilot vor

Du hast Kundendaten in Access.
Du willst daraus automatisch ein Dokument aufbauen.
Dann soll Copilot daraus einen schönen Text machen.

Schritt 1: Word-Dokument automatisch erzeugen

Sub ErzeugeWordBrief(kundenname As String, betreff As String, inhalt As String)
    Dim wdApp As Object
    Dim wdDoc As Object

    Set wdApp = CreateObject("Word.Application")
    Set wdDoc = wdApp.Documents.Add

    wdApp.Visible = True

    With wdDoc.Content
        .InsertAfter "Kunde: " & kundenname & vbCrLf
        .InsertAfter "Betreff: " & betreff & vbCrLf & vbCrLf
        .InsertAfter inhalt & vbCrLf & vbCrLf
        .InsertAfter "Bitte erstellen Sie daraus eine professionelle E-Mail."
    End With
End Sub

Du steuerst den Kontext. Copilot analysiert den Text.
Und erstellt daraus Vorschläge – direkt im Word-Dokument.

Tipp: Nutze strukturiertes Prompting im Dokument

Copilot versteht Klartext besser, wenn Du markierst, was er tun soll.

=== INHALT BEGINN ===  
Kunde: Bäckerei Schröder  
Betreff: Wartung Ihrer Kühlanlage  
Text: Die Kontrolle am 05.05. ergab eine Undichtigkeit im Leitungssystem...  
=== INHALT ENDE ===

Bitte formuliere daraus eine höfliche Benachrichtigung.

Du kannst diese Struktur mit VBA erzeugen.
So baust Du Dir ein internes Prompt-Framework.
Access als Datenquelle – Word als Copilot-Frontend.

Schritt 2: Access + Outlook + Copilot

Ähnlich funktioniert das in Outlook.
Du erzeugst eine E-Mail und schreibst vorformulierten Inhalt hinein.

Sub SendeMailMitCopilotEntwurf(empfaenger As String, betreff As String, rohtext As String)
    Dim olApp As Object
    Dim olMail As Object

    Set olApp = CreateObject("Outlook.Application")
    Set olMail = olApp.CreateItem(0)

    With olMail
        .To = empfaenger
        .Subject = betreff
        .Body = rohtext & vbCrLf & vbCrLf & "Bitte mit Copilot verbessern lassen."
        .Display
    End With
End Sub

Copilot erkennt den Text und bietet Dir direkt im Editor eine Option zum Umschreiben an.

Was funktioniert – was nicht

Warum das trotzdem sinnvoll ist

• Du standardisierst die Eingaben
• Du sparst viel Zeit beim Schreiben
• Du nutzt Copilot so, wie er gedacht ist: unterstützend, nicht autonom
• Du verbindest klassische VBA-Automation mit moderner KI-Logik

Zitat zum Mitnehmen

„Copilot ist kein API-Objekt. Aber ein verdammt guter Assistent, wenn Du weißt, wie Du ihn einsetzt.“

Wenn Du Hilfe beim Setup brauchst oder eigene Szenarien umsetzen willst – sag Bescheid.
Ich bau Dir den Rahmen. Copilot macht den Rest.