Beschreibung

Mit Hilfe dieser Makros kann man die Zoomeinstellung in MS Word ändern. Der Vorteil ist, dass gängige Zoomeinstellungen direkt in einer Symbolleiste verfügbar gemacht werden können. Weiterhin lässt sich den Makros auch ganz problemlos eine Tastenkobination zuordnen.

Um den einzelnen Makros bei MS Word 2003 Tastenkombinationen zuzuordnen, muss folgendermaßen vorgegangen werden:

1. Mit der rechten Maustaste auf den Symbolleistenbereich klicken
2. Anpassen
3. Tastatur
4. neue Tastenkombination für Makros – … (z.B. ZoomTextbreite) erstellen
5. Zuordnen anklicken
6. Schließen anklicken (erst nachdem Zuordnen angeklickt wurde, da sonst die Zuordnung nicht erfolgt)

---

Sourcecode

Funktionsübersicht

• Zoom auf 100%
• Zoom auf 90%
• Zoom auf Textbreite

Funktionen

Zoom auf 100%

Public Sub Zoom100Prozent()
    ' Bei Fehlern wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet.
    On Error GoTo NoDocumentOpen

    ' Falls keine Datei geöffnet ist, wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet. Die Prüfung, ob eine Datei geöffnet ist, wird über die Länge des Dateinamens des aktiven Dokuments durchgeführt.
    If Len(ActiveDocument.Name) = 0 Then GoTo NoDocumentOpen

    ' Ansicht auf 100% zoomen
    ActiveWindow.ActivePane.View.Zoom.Percentage = 100

NoDocumentOpen:
End Sub

Zoom auf 90%

Public Sub Zoom90Prozent()
    ' Bei Fehlern wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet.
    On Error GoTo NoDocumentOpen

    ' Falls keine Datei geöffnet ist, wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet. Die Prüfung, ob eine Datei geöffnet ist, wird über die Länge des Dateinamens des aktiven Dokuments durchgeführt.
    If Len(ActiveDocument.Name) = 0 Then GoTo NoDocumentOpen

    ' Ansicht auf 100% zoomen
    ActiveWindow.ActivePane.View.Zoom.Percentage = 90

NoDocumentOpen:
End Sub

Zoom auf Textbreite

Public Sub ZoomTextbreite()
    ' Bei Fehlern wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet.
    On Error GoTo NoDocumentOpen

    ' Falls keine Datei geöffnet ist, wird zur Sprungmarke NoDocumentOpen gesprungen und damit die Funktion beendet. Die Prüfung, ob eine Datei geöffnet ist, wird über die Länge des Dateinamens des aktiven Dokuments durchgeführt.
    If Len(ActiveDocument.Name) = 0 Then GoTo NoDocumentOpen

    With ActiveWindow.ActivePane.View.Zoom
        ' Da der Zoom auf Textbreite die Zoomeinstellung nur erhöht, wird die Zoomeinstellung erst auf 75% und anschließend auf Textbreite gesetzt.
        ' Falls das nicht ausreicht, kann natürlich auch ein kleinerer Wert als 75% gewählt werden.
        .Percentage = 75
        .PageFit = wdPageFitTextFit
    End With

NoDocumentOpen:
End Sub