mit dem folgenden Makro drucke ich die in einer Tabelle eingebundenen
Word Dokumente. Das klappt auch soweit ganz gut, nur werden mir einige
doppelt ausgedruckt und der ganze Vorgang wirkt recht langsam.
Ich scheine da irgendwie einen Denkfehler drin zu haben, der zu diesen
doppelten Ausdrucken führt und die Sache verzögert - doch wo ?
Vielen Dank für Rat&Tat
R.Schmitt
Sub Alle_word_Dokumente_drucken()
On Error Resume Next
Dim appWord As Object
Dim myOLEObject As OLEObject
For Each myOLEObject In Worksheets(1).OLEObjects
If myOLEObject.ProgId = "Word.Document.8" Then
Set appWord = CreateObject("Word.Application")
appWord.Visible = True
myOLEObject.Verb Verb:=xlVerbOpen
For i = appWord.Tasks.Count To 1 Step -1
If Right(appWord.Tasks(i), 16) = "- Microsoft Word" Then
appWord.activedocument.PrintOut
Application.Wait (Now + TimeValue("0:00:05"))
appWord.Tasks(i).Close
End If
Next i
End If
Next
Set appWord = Nothing
End Sub