Private Sub Dokumentation_Click()
Dim objWW As Object
On Error Resume Next
 
Set objWW = GetObject(, "Word.Application")
 
If Err.Number <> 0 Then
Err.Clear
Set objWW = CreateObject("Word.Application")
objWW.Visible = True
objWW.WindowState = 1
Else
objWW.Activate
objWW.Visible = True
objWW.WindowState = wdWindowStateMaximize
End If
objWW.Documents.Open _
  "C:\Temp\Datev_Schnittstelle\dokumentation\Datev_Schnittstelle.doc"
End Sub[

Gru?

Frank