Hallo ich habe ein Problem und bitte um eure Hilfe…
Ich verwende Access97 und auch Word 97. Ich möchte nun Daten aus einem Formular an ein Worddokument weitergeben. In dem Worddokument befinden sich Textmarken in die die Daten eingefüllt werden.
Soweit funktioniert es ja auch. Nur ich kann diese Aktion nur einmal durchführen. Das heist ich habe die Wordvorlage unter H:\vorlage.doc …dann gebe ich die Daten von Access an Word. Ersetze ich aber das (gefüllte) Dokument wieder durch die Vorlage und will die Aktion wieder durchführen.Wird Word zwar ausgeführt aber meine Textmarken werden nicht gefüllt. Erst wieder wenn ich die DB neustarte.
Hier mein bisheriger Code: (Modul)
Function Accessword()
Dim wrdApp As Word.Application
Dim boolAppLoad As Boolean
Dim wrdDoc As Word.Document
Dim boolDocLoad As Boolean
Dim tmName As String ’ Textmarken
Dim Ort As String
tmName = „lfd“
Ort = „strortstd“
On Error Resume Next
Err.Clear
Set wrdApp = GetObject(, „Word.Application“)
wrdApp.Visible = True
If (Err.Number 0) Then
Err.Clear
boolAppLoad = True
Set wrdApp = CreateObject(„Word.Application“)
wrdApp.Visible = True
Else
boolAppLoad = False
End If
Set wrdDoc = wrdApp.Documents.Item(„H:\Volage.doc“)
If (Err.Number 0) Then
Err.Clear
boolDocLoad = True
Set wrdDoc = wrdApp.Documents.Open(„H:\Vorlage.doc“, , , False)
Else
boolDocLoad = False
End If
ActiveDocument.Bookmarks(tmName).Range.Text = Forms![Datenfassung]![txt_lfd] & „“ & Forms![Datenfassung]![txt_TOP]
ActiveDocument.Bookmarks(Ort).Range.Text = Forms![Datenfassung]![txt_strasse] & "; " & Forms![Datenfassung]![txt_ortgenau] & „;“ & Forms![Datenfassung]![txt_art]
If (boolDocLoad) Then
wrdDoc.Close wdSaveChanges = -1
End If
Set wrdDoc = Nothing
If (boolAppLoad) Then
wrdApp.Quit wdDoNotSaveChanges = 0
End If
Set wrdApp = Nothing
End Function