Office: Access soll Word-Dokument erzeugen und SPEICHERN

Hi!

Ich möchte von Access aus ein paar Adressfelder an ein neu zu erzeugendes Worddokument übergeben. Das Worddokument soll noch mit freier Texteingabe weiter bearbeitet werden.

Dazu habe ich hier auch gute Hilfe gefunden (siehe Code unten). So weit so gut!

Aber jetzt kommt das Problem:
Das Worddokument soll auch gleich nach dem Erzeugen gespeichert werden.
Das alles soll beim Drücken eines Button in meinem Accessformular erfolgen.

Ich bitte um Eure Hilfe!


"Mein" Code sieht momentan so aus:

Private Sub Befehl_Word_KdAbsender_Click_TEST()
On Error GoTo Err_Befehl_Word_KdAbsender_Click_TEST

Dim oWord As Object
Dim oWordWork As Object
Dim sAbsender As String

' init
sAbsender = ""

' ### Word öffnen
Set oWord = CreateObject("Word.Application")
If Err.Number 0 Then
MsgBox "Fehler beim starten von Word!", vbInformation Or vbOKOnly, "Fehler!"
Exit Sub
End If

oWord.Visible = True
Set oWordWork = oWord.Documents.Add("\\Serverb\office\KD Absender.doc")

' #### Daten zusammenbauen
sAbsender = (Me.Zusatz + vbCrLf) & _
((Me.VORNAME + " ") & Me.Nachname + vbCrLf) & _
(Me.STRASSE + vbCrLf) & _
(Me.PLZ + " ") & Me.ORT & vbCrLf & _
vbCrLf & _
Format(Date, "dd.mm.yyyy")

With oWordWork
.Bookmarks("Absender").Range.Text = sAbsender
End With

' ### Dokument speichern - Fehler!!!
' oWordWork.Documents.SaveAs FileName:="C:\Dokumente und Einstellungen\kiki.doc)"

Exit_Befehl_Word_KdAbsender_Click_TEST:
Exit Sub

Err_Befehl_Word_KdAbsender_Click_TEST:
MsgBox Err.Description
Resume Exit_Befehl_Word_KdAbsender_Click_TEST

End Sub

:)

 

liegt es vielleicht an der Klammer ) in Deinem Dateinamen?
Welcher Fehler kommt denn?
Grüße
Michael

 

Hallo Michael!

Sorry, die Klammer war einfach falsch.

Die Fehlermeldung lautet:

"Objekt unterstützt diese Eigenschaft oder Methode nicht"

Ich denke aber dass es da ein prinzipielles Problem gibt, da es hier im Forum einen Verweis auf eine MS-Seite gibt, die diese Vorgehensweise beschreibt. Und da ist extra bemerkt, dass man damit nicht speichern kann.

Bis bald
Paul

 

PS:
Vielleicht gibt es wenigstens einen Weg irgendwie den Speicherpfad für das neue Worddokument von Access aus vorzublegen?

 

komisch, in meinen Programmen funktioniert dies so:

Auszug / ungetestet
Code:

Gruß
Michael

gerade noch gesehen: kann es sein, dass die Documents-Auflistung kein SaveAs hat?
Das gibt es glaube ich, nur bei einem Document-Objekt

 

Danke nochmal!!!

Aber bei mir gibt es keinen Typ Word.Application

bei der Zeile
Dim objWord As Word.Application
bringt er beim kompilieren die Fehlermeldung:
Benutzerdefinierter Typ nicht definiert!

Welche Access Version hast Du?

bis bald
Paul

 

Hallo,

vielleicht musst unter Verweise ein Häkchen bei Microsoft-Word setzen,
dann kennt er auch diese Word-Typen.
Schau mal unter Early-, Late-Binding nach.

Grüße
Michael

 

Hi nochmal!

Zitat:
vielleicht musst unter Verweise ein Häkchen bei Microsoft-Word setzen,

Wo genau muss ich das machen? Sorry, hab gesucht aber nichts gefunden

mfg Paul

 

sorry... doch noch gefunden *grins

 

Wow!
Dankeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee!
Es funzt!

Ich verneige mich vor Dir, ehrwürdiger Meister!



PS: für die Nachwelt:
unter Verweise ein Häkchen bei Microsoft-Word setzen, das war der Punkt!
Verweise sind unter
Extras / Verweise
im VB zu finden

 

HI!
Noch ein Problem!

Auf meinem Entwicklungs-PC läuft alles top! Aber das ganze soll auch auf einem anderen PC laufen bei dem aber nur die Access-Runtime installiert ist.

Access stürzt mit folgener Meldung ab:
Die Ausführung dieser Anwendung wurde wegen eines Lauzeitfehlers angehalten.
Die Anwendung kann nicht weiter ausgeführt werden und wird beendet.

Was nun?

 

Hallo,
was für eine Runtime-Version ist es denn?
Hast Du Deine "Vollversion" auch fehlerfrei übersetzt bekommen?
Versuch mal die Stelle, an der die Runtime-Version sich verabschiedet,
etwas einzugrenzen (MsgBox "...").
Wenn Du das hast, dann schau mal in der Prozedur/Funktion mit
Code:

(ungetestet *Smilie )
Hier bekommst Du sicher weitere Hinweise.
Grüße
Michael

 

Nabend Ihr Beiden.

Was Michael beschreibt ist eine Fehlerbehandlung. Diese hat sollte/muss in jeder Function/Sub vorhanden ein, sonst kommt es nämlich zu "Nichts sagenden Meldungen" und Access verabschiedet sich, insbesondere in Betrieb mit der Runtime. Nicht weil ich Michael verbessern will, aber bevor Du den Code unüberlegst übernimmst:

Code:

Natürlich ist die Frage jetzt Frech von mir, aber Word ist wohl auf dem Zielrechner installiert? *Smilie

Zu beachten ist auch : Wenn Du den Verweis auf Word innerhalb einer Office 2007 Umgebung setzt (Deine Entwicklungsumgebung), dann wäre ich mir nicht sicher ob das auf der Zielumgebung auch funktionieren wird, wenn dort Office < 2007 installiert ist. Insofern sollte man über Late-Binding nachdenken.

 

Hallo nochmals,

@Paul: Du solltest lieber die Variante von Sascha übernehmen, da dies sicher
die Profi-Lösung *tongue.gif* ist. Mein Vorschlag war eher quick-fast-and-dirty für eine schnelle
Lösung bestimmt, um Deinen einen aktuellen Fehler zu bestimmen.
Wie Sascha beschrieben hat, muss Du in jeder Funktion / Prozedur
evtl. auftretende Fehler abfangen, wenn Deine Lösung auf anderen Rechnerumgebungen zum
Einsatz kommen sollte und dort auch vernünftige Fehlermeldungen erscheinen sollen.
Hierfür habe ich erfolgreich MZTools im Einsatz.
Hiermit kannst Du Deine Funktionen / Prozeduren mit Fehlerbehandlungsroutinen
ausstatten.

@Sascha: Für konstruktive Anregungen bin ich immer zu haben *Smilie
Meine Erfahrungen bzgl. älterer Office-Versionen haben gezeigt, dass ein
Downgrade ohne erneutes Setzen des "alten" Verweises nicht funktioniert.

Grüße
Michael

 

Hi Michael,

ich hatte nur geschrieben, damit Paule nicht Deine Code so übernimmt was die Fehlerbehandlung angeht. Grundsätzlich hast Du ja recht: Deine/meine Fragen und Paules Problem erübrigen sich, wenn wir eine ordentliche Fehlermeldung haben.

Aber mit Late-Binding umgeht man das doch oder?... na ja... ich bin mir zwar FAST sicher, aber ich teste es morgen mal...