BlackBoard | Druckvorschau: Laufzeitfehler 4198

Geschrieben von Mr.Stevens am 02.01.2008 um 10:55:

Laufzeitfehler 4198

Hi.

Hab hier ein vermutlich kleines Problem mit einem Makro für Word2003.
Per Klick auf nen Button soll das Dokument an einen Mailempfänger gesendet werden. Beim Ausführen des Befehls erhalte ich die Fehlermeldung:
"Laufzeitfehler 4198 - Befehl misslungen"

Das Script sieht folgendermassen aus:

code:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

Private Sub CommandButton1_Click()
Dim docname As String
Dim docname2 As String

docname = ActiveDocument.FormFields("aunr").Result
docname2 = docname + ".doc"

ActiveDocument.SaveAs (docname2)

ActiveDocument.HasRoutingSlip = True
With ActiveDocument.RoutingSlip
    .Subject = docname + ".doc"
    .AddRecipient "empfänger@domain.de"
    .AddRecipient "empfänger2@domain.de"
    .Delivery = wdAllAtOnce
End With
ActiveDocument.Route
End Sub

Wo liegt der Hund begraben?

Geschrieben von Misel am 02.01.2008 um 14:12:

Es wäre schon interessant zu wissen, in welcher Zeile der Fehler kommt.

Geschrieben von Mr.Stevens am 02.01.2008 um 14:28:

Da hast Du wohl recht.
Der Fehler tritt in Zeile 8 auf ... "ActiveDocument.SaveAs (docname2)"

Geschrieben von phlox81 am 02.01.2008 um 14:36:

RE: Laufzeitfehler 4198

Zitat:

Original von Mr.Stevens

code:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Private Sub CommandButton1_Click()
Dim docname As String
Dim docname2 As String

docname = ActiveDocument.FormFields("aunr").Result
docname2 = docname + ".doc"

ActiveDocument.SaveAs (docname2)

Gut, wenn der Fehler in Zeile 8 liegt, dann kann man den Code ja schon mal soweit kürzen.
evtl. ist FormFields.Result nicht korrekt. Was steht denn in docname2 drin?
Funktionierts, wenn du da einen festen namen angibst?
Sind die Parameter beim SaveAs aufruf richtig?

phlox