Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: CreateObject(Word.Application) + Laufzeitfehler 429
Autor: Prian0815
Datum: 20.04.07 13:50
Hi Bastler, ich glaube da kann ich dir helfen, hatte mal dasselbe Prob.Habs dann so gelöst, wobei das wichtigste die Fehlerroutine 'Err_cmdSendMail_DblClick:' ist. In Word mit Textmarken schreiben: Dim WDApp As Object Error GoTo Err_cmdSendMail_DblClick 'Variablendeklaration für Word – Zugriff Dim WordLiefNicht as Boolean Const msgNoWord = "Diese Funktion kann nicht genutzt werden, Es ist kein Word installiert!, Funktion kann nicht ausgeführt werden!" Dim filename As String Dim path As String 'Ende der Deklarationen WordLiefNicht = False Screen.MousePointer = 11 path = Application.CurrentProject.path ‘ z.B. in Access filename = path + "\" + "zu öffnende Datei" + ".doc" Set WDApp = GetObject(, Word.Application) Err.Clear ' Err-Objekt im Fehlerfall löschen. ' Word starten Set WDApp = CreateObject("Word.Application") If WDApp Is Nothing Then ' Fehler: Word nicht vorhanden! MsgBox msgNoWord, vbExclamation Exit Sub End If WDApp.Documents.Open filename:=filename Documents(1).Activate If Not IsNull(rs!Firma1) Then ActiveDocument.Bookmarks("TextmarkenName").Select Selection.Text = " " & was auch immer End If Selection.Text = " " & rs!TelefonBeruflich If Not IsNull(rs!Durchwahl) Then ActiveDocument.Bookmarks("Durchwahl").Select Selection.Text = " " & rs!Durchwahl End If filename = path + "\" + “Neuer Dateiname+ ".doc" WDApp.ActiveDocument.SaveAs filename:=filename WDApp.Quit Err_cmdSendMail_DblClick: If Err.Number = 429 Then WordLiefNicht = True Resume Next Else MsgBox Err.Description 'Screen.MousePointer = 1 Resume Exit_cmdSendMail_dblClick End If Exit_cmdSendMail_dblClick: Exit Sub End Sub In Word ohne Textmarken schreiben: Dim wdAppl As Object Dim wdDoc As Object Dim wdPara As Object Dim intParasCnt As Integer Dim i As Integer Dim strBuffer As String Set wdAppl = Nothing Err.Clear 'Word starten: On Error GoTo err_WordAppl Set wdAppl = CreateObject("Word.Application") DoEvents On Error GoTo 0 With wdAppl 'Word-/Dokument-Ansicht einstellen: .Application.Visible = True .Application.Activate .WindowState = wdWindowStateMaximize 'Neues Dokument anlegen und Verweis setzen: Set wdDoc = .Documents.Add End With With wdDoc .Range.Text = Text1.Text .Range(0, 0).Select End With err_WordAppl: MsgBox "Konnte keine Verbindung zu Word herstellen !", _ vbOKOnly + vbCritical, Me.Caption Exit Sub

CreateObject(Word.Application) + Laufzeitfehler 429	1.749	BAStler	19.04.07 12:32
Re: CreateObject(Word.Application) + Laufzeitfehler 429	1.528	Prian0815	20.04.07 13:50
Re: CreateObject(Word.Application) + Laufzeitfehler 429	1.334	BAStler	23.04.07 09:21
Re: CreateObject(Word.Application) + Laufzeitfehler 429	1.296	Prian0815	23.04.07 11:07

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