Hallo Magdalena,
wenn ich dich richtig verstanden habe, hast du einen Word-Button angelegt. Von dem kannst du mit Rechtsklick Eigenschaften
Ereignis - Beim Klicken - 3Punkte Linksklick das Unterprogramm anzeigen, dass beim Klicken auf den Button ausgeführt wird. Da steht denn zum Beispiel:

Private Sub Befehl16_Click()
 <irgendwas>    
End Sub

Für <irgendwas> setzt du ein:

    Dim App As Object, Doc As Object 
    Dim strFilePath As String
    
      On Error Resume Next    ' Läuft Word ?
      Set App = GetObject(, "Word.Application")
      If Err.Number <> 0 Then    ' Word läuft nicht
        Err.Clear              ' Err zurücksetzen.
        Set App = CreateObject("Word.Application")
      Else
        App.Activate
      End If
      
      On Error GoTo Err_DateiÖffnen

      ' Datei öffnen
      strFilePath = "E:\Dokumente\Kategorie.doc"
      Set Doc = App.Documents.Open(strFilePath, , 1)

      App.Application.Visible = True
      
Exit_DateiÖffnen:
    Exit Sub

Err_DateiÖffnen:
    MsgBox Err.Description
    Resume Exit_DateiÖffnen

Hinter strFilePath = muss dein Verzeichnis und Dateinamen stehen.

Gruß
lorf

danke lorf!!

hat geklappt

ganz liebe grüße


M.