Office: (Office 2000) access --> word /// Laufzeitfehler 462 ???

fÖrdi · 9. Oktober 2004

hiii da draussen

ich starte ein word document aus access heraus und lösche name, telefon etc. und ersetze die daten mit aktuellen aus der db. hier der code:

Code:

Private Sub Liste21_DblClick(Cancel As Integer)
v_kd_nr = Forms!KundenForm!KdNr

Set rst = CurrentDb.OpenRecordset("SELECT * FROM Kunden WHERE KdNr = " & v_kd_nr & "")
v_namen = rst.Fields("Namen")
v_telefon = rst.Fields("Telefon1")
v_fax = rst.Fields("Fax")
v_herr_frau = rst.Fields("Anrede")
v_titel = rst.Fields("Titel")
v_firma = rst.Fields("Firma1")
v_strasse = rst.Fields("Strasse")
v_PLZ = rst.Fields("PLZ")
v_ort = rst.Fields("Ort")
v_email = rst.Fields("Email")
rst.Close

v_vorlage = Me.Liste21.Column(1)

On Error GoTo Word1_Err
'Start Microsoft Word 2000.
Set objWord = CreateObject("Word.Application")
With objWord
'Make the application visible.
.Visible = True
'Open the document.
Set objDokumet = objWord.Documents.Add(v_pfad_vorlagen & "" & v_vorlage & "")
'Move to each bookmark and insert text from the form.

With ActiveDocument.Tables(1).Cell(Row:=1, Column:=2).Range
.Delete
.InsertAfter (v_fax)
End With

With ActiveDocument.Tables(1).Cell(Row:=2, Column:=2).Range
.Delete
.InsertAfter (v_namen)
End With
With ActiveDocument.Tables(1).Cell(Row:=3, Column:=2).Range
.Delete
.InsertAfter (v_telefon)
End With
v_datum = Date
With ActiveDocument.Tables(1).Cell(Row:=3, Column:=4).Range
.Delete
.InsertAfter (v_datum)
End With

Selection.MoveDown Unit:=wdLine, count:=8
Selection.MoveStart Unit:=wdLine, count:=-1
Selection.Delete
Selection.InsertAfter (v_herr_frau)

End With
Set objWord = Nothing
Set objDokumet = Nothing
objWord.Quit
objDokumet.Quit

Exit Sub
Word1_Err:
'If a field on the form is empty, remove the bookmark text, and
'continue
If Err.Number = 94 Then
objWord.Selection.Text = ""
Resume Next
End If
Exit Sub
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dies geht exakt 1 mal! Wenn ich word dann schließe und es dann erneut öffnen möchte, bzw. ein anderes dokument öffnen möchte, geht das Dokument auf, aber die veränderungen (löschen, einsetzen) werden nicht ausgeführt:

Code:

With ActiveDocument.Tables(1).Cell(Row:=1, Column:=2).Range
.Delete
.InsertAfter (v_fax)
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich muss zuerst die Datenbank hoch und runter fahren, dann kann ich wieder 1x ein document öffnen. Einmal kam der Laufzeitfehler 462, der Remote.Comp. existiert nicht, oder ist nicht mehr verfügbar. Ich weiss aber nicht, ob es daran liegt...
hat jemand eine idee???

tanx ferdinand

AD: Code-Tags gesetzt. S. dazu auch Darstellung von Code-Abschnitten.

:)

MurphysLaw · 11. Oktober 2004

Hi ferdinand.

Dazu gibt's einen MS-KB-Artikel. Ich find ihn nicht auf die Schnelle, aber die Lösung ist denkbar einfach:
Überall dort in deinem Code, wo Du etwas in Word ausführst, musst Du dich explizit auf Word beziehen.
Also statt
Code:

Selection.MoveDown Unit:=wdLine, count:=8
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

schreibst Du
Code:

objWord.Selection.MoveDown Unit:=wdLine, count:=8
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und das wie gesagt an jeder Stelle mit Word-Befehlen.
*wink.gif*

Grüße,
Andreas

Office: (Office 2000) access --> word /// Laufzeitfehler 462 ???

access --> word /// Laufzeitfehler 462 ???

access --> word /// Laufzeitfehler 462 ???

access --> word /// Laufzeitfehler 462 ??? - Similar Threads - access word Laufzeitfehler

Word Access VBA Fußzeile formatieren

Bild mit VBA von Access in Word Formular einfügen

aus Access Word-Makro mit Parameterübergabe starten

Anträge aus Access in Word erstellen

Word Vorlage aus Access füllen

Verwenden des Seriendrucks zum Senden von Access-Daten an Word

Exportieren von Access-Daten in ein Word-Dokument