Private Sub mnuImage_Insert_Click()
    Set wApp = CreateObject("Word.Application.16")
 
    With wApp
        ' --------------------------------------------- Word anzeigen
        .Application.Visible = True
        .Application.Activate
        ' --------------------------------------------- Word Dokument laden und 
        ' anzeigen
        .Documents.Open sFile
 
        ' ???????
        ' ??????
 
        ' --------------------------------------------- Word wieder beenden
        .Application.Quit
        Set wApp = Nothing
    End With
End Sub