Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: aus Access 97 Word 97 Applikation starten
Autor: Fabian
Datum: 01.08.02 10:56
Hi Elwood, erst einmal ein Dankeschön für Deine Hilfe. So ganz peile ich das Problem noch nicht ################ Dim appword As Word.Application On Error Resume Next Set appword = GetObject(, "Word.Application.8") If Err.Number <> 0 Then 'Word läuft noch nicht 'Neue Word-Instanz starten Set appword = CreateObject("Word.Application.8") Else Set appword = GetObject(, "Word.Application.8") End If ############### bis hierhin sollte noch alles funzen jetzt zur Word-Applikation On Error GoTo worderror FileCopy quelle, ziel With appword .Visible = True .Activate .Documents.Open dateiname .WindowState = wdWindowStateMaximize With ActiveDocument .Activate #### und hier bekomme ich fast den "Affen" #### es wird nichts eingefügt '--- Anschrift einfügen .Bookmarks(1).Range.Select markierung.Text = Anschrift End With End With Set appword = Nothing Exit Sub worderror: MsgBox "Es ist ein unerwarteter Fehler aufgetreten" Set appword = Nothing End Sub #### Danke Fabian

aus Access 97 Word 97 Applikation starten	49	Fabian	01.08.02 07:21
Re: aus Access 97 Word 97 Applikation starten	216	Elwood	01.08.02 08:39
Re: aus Access 97 Word 97 Applikation starten	37	Fabian	01.08.02 10:56

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen