Access 97: Einbinden von Worddokument

[Matthias_Stieglitz_2af668]

Hallo
ich möchte ein vorhandenes Worddokument öffnen und in dieses etwas hineinschreiben.
ich mache das folgendermaßen:

dim word97 as object
dim anrede as string
dim nachname as string

anrede = „Herr“
Nachname = „Nachname“

Set Word97 = GetObject(, „word.application“)
Set Word97 = GetObject(„c:\zad\vorlage.doc“)

On Error GoTo 0
Word97.Application.Visible = True

Word97.Documents.Add

With Word97.Selection
.TypeText Text:=anrede
.TypeText Text:=nachname
End With

in der Zeile word97.documents.add bekomme ich folgdende Fehlermeldung:
Objekt unterstützt diese Eigenschaft oder Methode nicht.
Was mache ich falsch ???
Interessanterweise funktioniert createobject(„word.application“), nur will ich nicht ein leeres Dokument öffnen
Matthias

[Reinhard_Kraasch]

Was mache ich falsch ???
Interessanterweise funktioniert
createobject(„word.application“), nur
will ich nicht ein leeres Dokument öffnen
Matthias

Tja, vielleicht solltest du mal in der Hilfe nachsehen, was GetObject, CreateObject und Application.Add denn nun tatsächlich machen und welche Parameter sie erwarten …
Probier’ mal folgendes:

Private Sub Word\_Click()
 Dim word97 As Object
 On Error Resume Next
 Set word97 = GetObject(, "Word.application")
 If Err.Number 0 Then Set word97 = CreateObject("word.application")
 On Error GoTo 0
 word97.Application.Visible = True
 word97.Documents.Add "c:\temp\vorlage.dot"
 Tmp = "Herrn " & Me!Vorname & " " & Me!Nachname & \_
 vbCrLf & Me!Strasse & vbCrLf & Me!PLZ & " " & Me!Ort
 With word97.Selection
 .TypeText Text:=Tmp
 End With
End Sub

oder schau dir die Antworten auf die ewig wiederkehrende Frage „Wie steuere ich Word von Access/VB(A) aus?“ in der Office-Sektion bzw. im Archiv an.

Reinhard