Laufzeitfehler40036 - Excel und Word VBA

Hallo zusammen,
ich habe seit einigen Tagen ein kleines Problem.
Ich starte eine Excel-Datei mit hinterlegtem Makro - dieses Makro ruft wiederrum ein Worddokument auf, in dem ein weiteres Makro ausgeführt wird - Dann wird aus dem Excel Makro das Word komplett geschlossen.
So funktionierte es bis vor ein paar Tagen. Komischerweise hängt er jetzt plötzlich an der Stelle, wo das Word-Dokument geschlossen werden soll:
Set wrd = CreateObject("Word.Application")
Set wrddoc = wrd.documents.Open(faxvorsfile)
wrd.Visible = True
wrd.Run "Modul1.test", faxpfad, faxgrund, faxdat2
wrddoc.Close savechanges:=False - Hier hängt er
wrd.Quit - und auch hier mag er nicht mehr
Es wird beendet mit der Fehlermeldung 40036. Leider ist darüber nur sehr wenig explizites zu finden.
Hat jemand zufällig eine Idee, woran das liegen könnte?
Mir sind keine Änderungen an den Rechnern bekannt.
Gruß und Danke
Peter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Peter,
ich hab jetzt mal bei mir getestet
Windows-Vista Home Premium 6.06002 Service Pack 2 Build 6002
Office 2010 Professional Plus Version 14.0.6123.5001 (32-Bit) SP1 MSO (14.0.6123.5001)
VBA 7.0 Version 1627 - Retail 7.0.1627, Forms3: 14.0.6009.100
Das von dir angesprochene Update ist bei mir auch installiert, wobei ich mich frage, warum ein Sicherheitsupdate für Office 2007 auf einem System mit Office 2010 installiert wird.
Das von mir verwendete Testmakro in Word ist einfach gestrickt und Word wird anstandslos wieder geschlossen.
Was macht denn dein Makro
wrd.Run "Modul1.test", faxpfad, faxgrund, faxdat2
alles so? Möglicherweise wird da in Word oder sonstwo irgendein Prozess nicht ordnungsgemäß geschlossen, bevor Excel die Worddatei wieder schliessen soll.
Und zufälliger Weise greift das neue Sicherheits-Update genau an der Stelle ein.
Gruß
Franz
Excel-Makro

Sub aa_TestWordexcel()
Dim faxvorsfile As String
Dim wrd As Object
Dim wrddoc As Object
faxvorsfile = "C:\users\Public\Test\FaxVorsFile.docx"
Set wrd = CreateObject("Word.Application")
Set wrddoc = wrd.documents.Open(faxvorsfile)
wrd.Visible = True
wrd.Run "Modul1.TestExcelWord"
wrddoc.Close savechanges:=False '- Hier hängt er
wrd.Quit '- und auch hier mag er nicht mehr
End Sub

Word-Makro - In der Dokumentvorlage zu der von Excel geöffneten Word-Datei

Sub TestExcelWord()
Dim i As Long
' TestExcelWord Makro
' Test Verbindung Excel Word
' Beschäfftigungungstherapie für Word-VBA
Do Until i = 500000
i = i + 1
If i = 5000000 Then Exit Do
If i = 5000000 Then Exit Do
If i = 5000000 Then Exit Do
If i = 5000000 Then Exit Do
If i = 5000000 Then Exit Do
If i = 5000000 Then Exit Do
If i = 5000000 Then Exit Do
If i = 5000000 Then Exit Do
If i = 5000000 Then Exit Do
If i = 5000000 Then Exit Do
Loop
'Selection.TypeText Text:="Test"
'MsgBox "Fertig mit zählen - i = " & i
End Sub

Beliebteste Forumthreads (12 Monate)

Laufzeitfehler40036 - Excel und Word VBA

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread