Sub
Drucken_Word()
Dim
wd
As
Object
, wasClosed
As
Boolean
, lnk
As
Hyperlink
Set
Bereich = Range(
"B16:B31"
)
On
Error
Resume
Next
Set
wd = GetObject(,
"Word.Application"
)
If
wd
Is
Nothing
Then
Set
wd = CreateObject(
"Word.Application"
)
wd.Visible =
True
wasClosed =
True
End
If
On
Error
GoTo
0
For
Each
c
In
Bereich.Cells
If
InStr(c.Formula,
"HYPERLINK("
) > 0
And
c.Value
Like
"*.do*"
Then
wd.Documents.Add Template:=c.Value
wd.ActiveDocument.PrintOut
wd.ActiveDocument.Close
False
End
If
Next
c
If
wasClosed
Then
wd.Quit
End
Sub