Word: Automatisches Anpassen von "Seite einrichten" bei mehreren Dokumenten

[_lx]

Hallo

Ich müsste eine große Anzahl an bereits vorhandenen Word-Dokumenten anpassen und frage mich, ob es möglich ist, das mit einem Skript oder Ähnlichem zu erledigen.

Dabei geht es um die Einstellung der Papierzufuhr unter "Seite einrichten". Hier sind leider sämtliche Dokumente unterschiedlich eingestellt und ich hätte gerne einheitlich alles auf "Standardschacht" (erste und restliche Seiten).

Bei mehreren hundert Dokumenten möchte ich jedoch ungern jedes Dokument einzeln händisch anpassen. Lässt sich das irgendwie automatisieren?

Vielen Dank vorab.

 

[Loopman]

Das geht theoretisch automatisch mit einem Makro wie diesem:

Sub MassFormatFiles
    Dim JName As String

    Dialogs(wdDialogFileOpen).Show
    Application.ScreenUpdating = False
    JName = Dir("*.doc")
    While (JName > "")
        Application.Documents.Open FileName:=JName

            
             ActiveDocument.PageSetup.FirstPageTray = wdPrinterLowerBin
             ActiveDocument.PageSetup.OtherPagesTray = wdPrinterUpperBin


        ActiveDocument.Close SaveChanges:=wdSaveChanges
        JName = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub

 

[PatrickS3]

Ich habe keine Ahnung von Makros.
Aber je nach Word Version könnte da ein klitzekleiner Fehler in dem Makro in Zeile 6 sein, oder? Neuere Versionen nutzen doch .docx.

 

[Loopman]

Ja, stimmt
.docx für neuere Versionen

 

[_lx]

Hat funktioniert. Danke!