|
Vielen dank für den Lob 
Wenn die Fusszeile im Querformat nicht angepasst werden, liegt es daran, dass der Abstand nicht 42,55 Punkte beträgt.
Herausfinden kann man das, indem die betreffende Datei geöffnet und anschliessend der folgende VBA-Befehl im Direktfenster ausgeführt wird:
? ActiveDocument.PageSetup.FooterDistance
Der ausgegebene Wert muss anschliessend in im VBA-Code integriert werden:
Derzeit ist im VBA-Code folgende Zeile enthalten:
If .FooterDistance = 42.55 Then
Die 42,55 Punkte steht für 1,5 cm.
Diese Zeile muss durch diese ersetzt werden:
If .FooterDistance = 42.55 or .FooterDistance = .... Then
Der Platzhalter "...." muss durch die ermittelte Zahl ausgetauscht werden.
P.S. Dieser Text wurde mit einer Tastatur geschrieben, die keine SZ-Taste hat. Daher sind manche Worte falsch geschrieben worden. 
|