Sub prtDocs()
‘Tulostetaan kaikki Word asiakirjat nykyisessä kansiossa

Dim adoc As String

adoc = Dir(ActiveDocument.Path & “\*.DOCX”)
Do While adoc <> “”
Application.PrintOut FileName:=adoc
adoc = Dir()
Loop
End Sub