Winword 7.0

Tip: Um in Word für Windows den Zoomfaktor zu ändern, gibt es normalerweise zwei Möglichkeiten. Entweder man wählt den ╗Zoom½-Eintrag in der Symbolleiste mit der Maus und muß gegebenenfalls den gewünschten Zoomfaktor eintippen, wenn er in der Auswahl nicht vorhanden ist, oder man geht den Weg über das Menü ╗Ansicht | Zoom½. Beide Möglichkeiten sind jedoch ziemlich aufwendig, oftmals wäre es erheblich praktischer, die Zoomansicht schrittweise per Mausklick zu wechseln. Zwei Makros, die Sie als Schaltfläche auf Ihre Symbolleiste legen können, machen es möglich. Eine der beiden Schaltflächen vergrößert die Darstellung des Dokuments bei jedem Mausklick um einen Wert, den Sie im Makro festgelegt haben, die andere verkleinert sie. Die beiden Makros im Kasten vergrößern beziehungsweise verkleinern die Ansicht um jeweils fünf Prozent. Sollten Sie eine andere Schrittweite wünschen, ersetzen Sie den Wert in der Zeile ╗zStep = 5½ etwa durch ╗zStep = 10½, um in 10%-Schritten zu zoomen. Der Wert ╗zLow = 100½ bestimmt, zu welchem Zoomfaktor gesprungen wird, wenn der Zoombereich von zehn bis 200% über- oder unterschritten wird. Wünschen Sie einen anderen Standardwert, so geben Sie zum Beispiel ╗zLow = 75 %½ an. Um die Makros in die Symbolleiste von Word für Windows einzubinden, klicken Sie die Symbolleiste mit der rechten Maustaste an und wählen aus dem Pop-Up-Menü den Punkt ╗Anpassen½. Scrollen Sie dann unter ╗Kategorien:½ so weit nach unten, bis Sie die Zeile ╗Makros½ markieren können. Nun ziehen Sie aus der Liste ╗Makros½ Ihre beiden Makros per Drag and Drop auf die Symbolleiste und verpassen Ihnen eines der angebotenen Layouts oder gestalten mit ╗Bearbeiten½ ein neues.
Makrolisting Zoomin
Sub MAIN
On Error Goto errortrap zStep = 5 : zLow = 100 Dim zoom As AnsichtZoom GetCurValues Zoom
proz = Val(Zoom.ZoomProzent) proz = proz + zStep If proz > 200 Then proz = zLow AnsichtZoom
.ZoomProzent = proz errortrap: If err = 509 Then Beep MsgBox "Kein Dokument!" End If End Sub Makrolisting
Zoomout
Sub MAIN On Error Goto errortrap zStep = - 5 : zLow = 100 Dim zoom As AnsichtZoom GetCurValues Zoom
proz = Val(Zoom.ZoomProzent) proz = proz + zStep If proz < 10 Then proz = zLow AnsichtZoom
.ZoomProzent = proz errortrap: If err = 509 Then Beep MsgBox "Kein Dokument!" End If End Sub