Hallo,
Ich rufe aus Access ein Word Dokument auf. Das Word Dokument hat den Namen einer SchadenNr.
Das funktioniert auch, wenn ich ein Dokument mit dieser SchadenNr. schon angelegt habe.
Die SchadenNr setzt sich aus Jahr „-“ und SchadenNr zusammen.
Wenn aber noch kein Dokument existiert, sollte automatisch auch ein neues erstellt werden und abgespeichert werden und der SchadenNr.
Ich habe versucht, siehe unten das problem zu lösen.
Ich möchte, wenn kein Dokument mit der SchadensNr existiert, dass ein neues Dokument mit der SchadenNr. geöffnet wird.
Nach der Bearbeitung sollte das Dokument auch wieder gespeichert werden.
Ins Dokument wird auch die SchadensNr übertragen und als Textmarke auch hinterlegt.
Es sollte aber zusätzlich noch der Text Interne-Vermerke und das aktuelle Datum eingetragen werden.
Beim Aufruf des Word Dokuments wird SchadenNr eingtragen, danach erfolgt Fehlermeldung kann Interne_Vermerke nicht finden.
>
Private Sub Interne_Vermerke_Click()
On Error GoTo Err_Interne_Vermerke_Click
Dim objDoc As Object
Dim objSel As Object
Dim Interne_Vermerke
Dim objWord As Word.Application
Interne_Vermerke = „(Interne Vermerke:smile:“
'Wenn keine Daten übergeben werden gehe raus
'If IsNull(varData) = True Then Beep
'Exit Sub
'DoEvents
'If Not WordGeladen() Then On Error GoTo OffAutoProblem
'SetobjWord = New Word.Application
'On Error Resume Next
'Set objDoc = objWord.Documents.Add(„D:\Ablage\Intern“ & Jahr & „-“ & SchadenNr & „.doc“)
'Set objWord = GetObject(, „Word.Application“)
'If err.Number = 429 Then End If
'word Anzeigen
'objWord.Visible = True
'Gugst du ob geladen was
'If objWord.Documents.Count = 0 Then
Beep
'End If
Set objWord = CreateObject(„Word.Application“)
With objWord
.Visible = True
Documents.Open „D:\Ablage\Intern“ & Jahr & „-“ & SchadenNr & „.doc“ 'das zu öffnende Worddokument
.ActiveDocument.Bookmarks(„Jahr“).Select
.Selection.Text = (CStr(Form!Jahr))
.ActiveDocument.Bookmarks(„SchadenNr“).Select
.Selection.Text = (CStr(Form!SchadenNr))
.ActiveDocument.Bookmarks(„Interne_Vermerke“).Select
.Selection.Text = (CStr(Form!Interne_Vermerke))
'usw.nächste Textmarken…
'…
’ .ActiveDocument.PrintOut Background:=False
'.Quit acPrompt
Beep
‚MsgBox „Textmarke '“ + strTextmarke + "‘ nicht gefunden!", vbOKOnly + vbInformation, „!!! Problem !!!“
'an Cursorposition einfügen
Set objSel = objWord.Selection
objSel.TypeText varData
'DoEvents
'MsgBox „Der Word-Interne Vermerk wurde erfolgreich angelegt!“
'DoEvents
'EndeProc:
Set objWord = Nothing
DoEvents
'Exit Sub
Exit_Interne_Vermerke_Click:
Exit Sub
Err_Interne_Vermerke_Click:
MsgBox err.Description
Resume Exit_Interne_Vermerke_Click
Beep
End With
End Sub
