eine Word Datei aus Access öffnen

[a1nett]

Ich hab da ein Problem ich möchte, nach klicken auf einen Button, dass eine Word Datei geöffnen wird. Kann mir da jemand weiterhelfen? :confused:

[Meenzer]

Hi!

Wenn Du eine neue Worddatei öffnen willst, geht das mit diesem ProgrammCode ( für Access 97 ):

Für Befehl0_Click kannst Du den Namen Deines Buttons setzen.

------------------------------------------------------------------------

Private Sub Befehl0_Click()

Dim appWord As Word.Application

On Error Resume Next

'Testen, ob Word aktiv ist

Set appWord = GetObject(, "Word.Application.8")

If Err.Number <> 0 Then

'Word ist nicht aktiv

Err.Clear

'Neue Word Instanz schaffen

Set appWord = CreateObject("Word.Application.8")

'Anzeigen

appWord.Documents.Add

appWord.Visible = True

Else

'Word aktivieren und neues Dokument erstellen

appWord.Activate

appWord.Documents.Add

appWord.Visible = True

End If

End Sub

----------------------------------------------------------------------------

Gruss

[a1nett]

danke schön kann ich so eigentlich auch schon bestehende dokumente anzeigen?

[hades]

passt besser zum VB-Forum.

~~~thread moved~~~

[Meenzer]

Hi!

Na sicher geht das.

-----------------------------------------------------------------

appWord.Documents.Open FileName:="Deine Datei"

-----------------------------------------------------------------

Viel Spass

[a1nett]

Dank dir nochmal.

Musste deinen quelltext für access2000 aba nochmal umschreiben in access2000 gibt es den datentyp

Word.Application nicht also muss die zeile umgeschrieben werden

dim appWord as Object

dann funzt es auch wieder.

mfg

a1nett