Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Word und VB
Autor: klaas
Datum: 14.07.02 17:47
Warum kann die Anwendung nicht aktiviert werden (Fehler 4601)??? Option Explicit Dim WordAppl As Word.Application Dim WdDoc As Word.Document Dim WordApplLiefNicht As Boolean Const WordDocVorlage$ = "Vorlage Rechnung Kühlungsborn.dot" Private Sub Form_Initialize() On Error Resume Next Set WordAppl = GetObject(, "Word.Application") On Error GoTo errorMsgWord End Sub Private Sub Command1_Click() 'Wenn Word nicht ausgeführt wird, Word starten: On Error GoTo errorMsgWord If WordAppl Is Nothing Then WordApplLiefNicht = True Set WordAppl = CreateObject("Word.Application") End If 'Dokument öffnen: On Error GoTo errorMsgVorlage Set WdDoc = WordAppl.Documents.Add(Template:=App.Path & "" & WordDocVorlage, _ NewTemplate:=False) On Error GoTo 0 WordAppl.Application.Visible = False WordAppl.Application.Activate 'Texte den Textmarken im Word-Dokument zuweisen: If WdDoc.ActiveDocument.Bookmarks.Exists("Tm_Kundennummer") Then WdDoc.ActiveDocument.Bookmarks("tm_Kundennummer").Range.Text = _ Me.Txt_Kundennummer.Text End If If WdDoc.ActiveDocument.Bookmarks.Exists("Tm_Nachname") Then WdDoc.ActiveDocument.Bookmarks("Tm_Nachname").Range.Text = _ Me.Txt_Nachname.Text End If If WdDoc.ActiveDocument.Bookmarks.Exists("Tm_Vorname") Then WdDoc.ActiveDocument.Bookmarks("Tm_Vorname").Range.Text = _ Me.Txt_Vorname.Text End If If WdDoc.ActiveDocument.Bookmarks.Exists("Tm_Strasse") Then WdDoc.ActiveDocument.Bookmarks("Tm_Strasse").Range.Text = _ Me.Txt_Strasse.Text End If If WdDoc.ActiveDocument.Bookmarks.Exists("Tm_Plz") Then WdDoc.ActiveDocument.Bookmarks("Tm_Plz").Range.Text = _ Me.Txt_Postleitzahl.Text End If If WdDoc.ActiveDocument.Bookmarks.Exists("Tm_Ort") Then WdDoc.ActiveDocument.Bookmarks("Tm_Ort").Range.Text = _ Me.Txt_Ort.Text End If If WdDoc.ActiveDocument.Bookmarks.Exists("Tm_Telefon") Then WdDoc.ActiveDocument.Bookmarks("Tm_Telefon").Range.Text = _ Me.Txt_Telefon.Text End If If WdDoc.ActiveDocument.Bookmarks.Exists("Tm_WohnungsNr") Then WdDoc.ActiveDocument.Bookmarks("Tm_WohnungsNr").Range.Text = _ Me.Txt_Wohnungsnummer.Text End If If WdDoc.ActiveDocument.Bookmarks.Exists("Tm_Anzahl") Then WdDoc.ActiveDocument.Bookmarks("Tm_Anzahl").Range.Text = _ Me.Txt_AnzahlderPersonen.Text End If If WdDoc.ActiveDocument.Bookmarks.Exists("Tm_Anreise") Then WdDoc.ActiveDocument.Bookmarks("Tm_Anreise").Range.Text = _ Me.Txt_Anreisedatum.Text End If If WdDoc.ActiveDocument.Bookmarks.Exists("Tm_Abreise") Then WdDoc.ActiveDocument.Bookmarks("Tm_Abreise").Range.Text = _ Me.Txt_Abreisedatum.Text End If If WdDoc.ActiveDocument.Bookmarks.Exists("Tm_RechNr") Then WdDoc.ActiveDocument.Bookmarks("Tm_RechNr").Range.Text = _ Me.Txt_Rechnungsnummer.Text End If If WdDoc.ActiveDocument.Bookmarks.Exists("Tm_Gesamtpreis") Then WdDoc.ActiveDocument.Bookmarks("Tm_Gesamtpreis").Range.Text = Gesamtpreis End If '--> für Tage, Einzelpreis weitere Anweisungen mit "TM" ' End With WdDoc.PrintOut WdDoc.Close SaveChanges:=False If WordApplLiefNicht Then WordAppl.Application.Quit Set WordAppl = Nothing Exit Sub errorMsgWord: MsgBox "Es konnte keine Verbindung zu Word hergestellt werden!", 16, "Fehler" Exit Sub errorMsgVorlage: MsgBox "Die Dokumentvorlage '" & WordDocVorlage & "' konnte nicht geöffnet werden !", 16, "Fehler" Exit Sub End Sub Danke. Gruß Klaas

Word und VB

70

klaas

14.07.02 17:47

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