Serie Word-documenten alleen 1e pagina printen

[Senso]

Serie Word-documenten alleen 1e pagina printen. Alle documenten (.docx) staan in één map met als kenmerk/overeenkomsten in alle bestandsnamen *INDEX Jaarordner* Ik kan ze ook in één map zetten.
volledig voorbeeld naam:
_31_INDEX Jaarordner _Blad _AANGIFTE BELASTINGDIENST.docx
Telkens één voor één openen is lastig.
Is er een oplossing voor? Freeware?

Als ik RMK doe > Afdrukken, krijg ik niet het printerscherm maar begint gelijk af te drukken (alles in een document).

VBA-code geen ervaring met/in Word!

[VBA]Sub PrintAll()

Dim fso As FileSystemObject
Dim fldr As Folder
Dim f As File
Dim myDoc As Document
Const TARGET_FOLDER As String = "C:\Temp\"

Set fso = New FileSystemObject
Set fldr = fso.GetFolder(TARGET_FOLDER)
For Each f In fldr.Files
If Right(f.Name, 4) = ".docx" Then
Set myDoc = Documents.Open(TARGET_FOLDER & f.Name)
myDoc.PrintOut
myDoc.Close False
' you could append a log file here
End If
Next f

End Sub[/VBA]

 

[Senso]

Helaas werkt onderstaande niet. Foutopsporing blijft blanco bij opening in de VBA-editor.

Sub PrintAllWordDocs
Dim strPath As String
strPath = "E:\test\"
strFileName = Dir(strPath + "*.docx", vbNormal)
Do While strFileName <> ""
 Documents.Open FileName:=strPath + strFileName, ConfirmConversions:=False, _
 ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
 PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
 WritePasswordTemplate:="", Format:=wdOpenFormatAuto
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
 wdPrintDocumentContent, Copies:=1, Pages:="1", PageType:=wdPrintAllPages, _
 ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
 False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
 PrintZoomPaperHeight:=0
Documents.Close
strFileName = Dir
Loop
End Sub