Guten Tag, ich programmiere ehrenamtlich für das Hospiz in Stuttgart (Betreuung sterbender Menschen auf ihrem letzen Weg) und erhalte dort auf den Rechnern im Hospiz seit kurzem die Fehlermeldung:
„Automatisierungsfehler, Bibliothek nicht registriert“. Auf meinem Rechner zuhause erhalte ich den Fehler aber nicht, obwohl ich die gleiche Konfiguration und gleiche Verweise verwende!
Meine Prozedur:
***********************************
Private Sub Doku_Click()
On Error GoTo Err_CmdDrucken
'On Error Resume Next
'Dokumentation erstellen
Dim gwordobj As Object
Dim db As Database, strVorlage As String
Dim BegBgl As Date, GebTag As Date
Dim GesName As String
'erst mal nachschauen, ob es das Dokument schon gibt.
strVorlage = „m:\PatDoku\doku“ & CStr(Me!PatNr) & „.doc“
If Dir(strVorlage) „“ Then
Application.FollowHyperlink strVorlage
Else
DoCmd.Hourglass True
Set db = CurrentDb
Set gwordobj = CreateObject(„Word.Application“)
gwordobj.Documents.Add „m:\PatDoku\Doku.dot“
GesName = Trim(Me!Titel & " " & Me!Nachname & ", " & Me!Vorname)
'füllen der Kopfzeile
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = _
„Verlaufdokumentation:“ & vbTab & [GesName] _
& " geb.: " & Nz(Me!GebTag) & vbCr _
& "Anfragedat.: " & vbTab & Me!BegBgl & vbCr _
& „____________________________________________________________“ & vbCr
gwordobj.ActiveDocument.SaveAs strVorlage
Application.FollowHyperlink strVorlage
End If
Exit Sub
Err_CmdDrucken:
MsgBox Error$, Err.Number
gwordobj.Quit
Set gwordobj = Nothing
DoCmd.Hourglass False
Resume Exit_CmdDrucken
Exit_CmdDrucken:
Exit Sub
*****************************************
Wer kann helfen?
Gruss
Eckart