Dieser Browser wird nicht mehr unterstützt.
Führen Sie ein Upgrade auf Microsoft Edge durch, um die neuesten Features, Sicherheitsupdates und den technischen Support zu nutzen.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(131.20000000000002, 98%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3ECB%3C/text%3E%3C/svg%3E)
Hallo,
ich habe große Probleme bei einem umfangreichen Dokument mit vielen Abschnittswechseln das Seitenformat und die Ränder per Makro einzustellen.
Mit Word 2019 geht es problemlos.
Der VBA Code lautet.
With ActiveDocument.PageSetup
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(2.5)
.BottomMargin = CentimetersToPoints(2)
.LeftMargin = CentimetersToPoints(2.5)
.RightMargin = CentimetersToPoints(2.5)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.25)
.FooterDistance = CentimetersToPoints(1.25)
.PageWidth = CentimetersToPoints(21)
.PageHeight = CentimetersToPoints(29.7)
.SectionStart = wdSectionNewPage
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
Kann es sein, dass man in den Word-Optionen etwas einstellen muss, damit Word hier nicht bei jeder Zeile, die im VBA Code Einstellungen macht, ewig warten muss?
Screenupdating per VBA ausschalten bringt übrigens nichts.
Eine Familie von Microsoft-Softwareprodukten für die Textverarbeitung zum Erstellen von Web-, E-Mail- und Druckdokumenten.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(16, 20%, 11%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3ETL%3C/text%3E%3C/svg%3E)
Hallo Christian,
vielen Dank für deine Nachricht.
Ich gehe von einer Dokumentenbeschädigung aus.
Markiere meine entsprechende Antwort als Lösung.
Bei weiteren Fragen stehen wir zur Verfügung.
Hallo Christian,
vielen Dank für deine Anfrage.
Das Makro konnte hier in Word 365 in Dokumenten mit vielen Abschnittswechseln mit normaler Geschwindigkeit fehlerfrei ausgeführt werden.
Einstellungen in den Word-Optionen sind hierzu nicht vorgsehen.
Besteht das Verhalten nur mit einem Word-Dokument?
Hallo Thomas,
ja, es besteht in dieser Form nur bei einem Word-Dokument. In Word 2019 läuft das Makro in wenigen Sekunden durch. Lediglich Word 365 kommt beim Ausführen des Makros zu keinem Ende. Aber ja, es scheint auch an der Datei zu liegen.