Hallo zusammen,
ich lasse in Access/VBA ein Word-Dokumentvorlage öffnen, bearbeiten, speichern und drucken.
Sporadisch bekomme ich die Fehlermeldung ""Der Remote-Server-Computer exisiert nicht.."
Ich kann aber nicht nachvollziehen in welcher Zeile der Fehler vorkommt, da beim Einzelschritt dieser Fehler nicht auftritt.
Ich vermute, dass ich Fehler beim Anpsrechen von Word habe, da ich das mehrmals anspreche und er wahrscheinlich den Kontakt verliert... könnt ihr bitte mal drüber schauen, ob hier ein grober Fehler vorhanden ist.
Vielen Dank
gruß Christoph
Hier der Codeteil mit dem Word-Teil:
Dim objWord As Word.Application
Set objWord = CreateObject("Word.Application")
With objWord
.Visible = True
.Documents.Open (dokLS)
.ActiveDocument.FormFields("Abteilung").result = txtAbteilung.Value
If txtFehler <> "" Then .ActiveDocument.FormFields("FehlerName").result = "Fehler"
...
End With
objWord.ActiveDocument.SaveAs2 FileName:=verz3 & "\Lief " & Lieferscheinnummer.Column(1) & " " & dateGER & " " & Lieferant.Column(2) & ".doc", FileFormat:=wdFormatDocument
If Dir("c:\test.jpg") <> "" Then
objWord.ActiveDocument.Bookmarks("Signatur").Range.InlineShapes.AddPicture FileName:= _
"c:\test.jpg", LinkToFile:=False, _
SaveWithDocument:=True
If InStr(1, ActivePrinter, Drucker1.Value, vbTextCompare) <> 0 Then
With ActiveDocument.PageSetup
.FirstPageTray = Drucker2.Value
.OtherPagesTray = Drucker2.Value
End With
End If
End If
If Ausdruck1_Lief1 = True Then
objWord.ActiveDocument.PrintOut 'Range:=wdPrintFromTo, From:="1", To:="1"
End If
If Ausdruck1_Lief2 = True Then
Dim wordbasic, wb
Set wordbasic = GetObject(verz3 & "\Lief " & Lieferscheinnummer.Column(1) & " " & dateGER & " " & Lieferant.Column(2) & ".doc")
Set wb = wordbasic.Parent
wb.Run "Logo_Einfügen_Kopfzeile"
Set wordbasic = Nothing
Set wb = Nothing
objWord.ActiveDocument.PrintOut 'Range:=wdPrintFromTo, From:="1", To:="1"
End If
objWord.ActiveDocument.Close False
objWord.Quit
Set objWord = Nothing
Hallo Christoph,
sieh mal da rein, ich glaube da ist dein Fehler und dessen Lösung (unter Resolution) beschrieben.
HTH
http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q189618 (http://support.microsoft.com/default.aspx?scid=kb;EN-US;Q189618)
Hallo,
danke für den Tipp.
Ich habe lediglich hier folgende Änderung vorgenommen:
With objword.ActiveDocument.PageSetup
.FirstPageTray = Drucker2.Value
.OtherPagesTray = Drucker2.Value
End With
Sonst sind mir keine Fehler aufgefallen.
Werde das aber erst feststellen können, wenn ich Zukunft die sporadischen Fehler ausbleiben.
Gruß Christoph