StarBasic - Allgemein

Wie kann man den Zoom der Ansicht einstellen?

Leider wird die letzte Ansicht eines Dokumentes im Dokument mit abgespeichert. Mich persönlich nervt das vor allem bei Writer- Dokumenten.Man kann aber die Ansicht per Makro auslesen und einstellen.

Bei Calc, Impress und Draw-Dokumenten befindet sich der Parameter direkt unterhalb den Currentcontroller-Objektes:

ThisComponent.CurrentController.ZoomValue

Bei Writer-Dokumenten eine Stufe weiter unten (Wieder eines der Beispiele für die sonderbare Logik der API).

ThisComponent.CurrentController.ViewSettings.ZoomValue

Dieses Makro prüft beim Öffnen eines Dokumentes ob es sich um ein Writer-Dokument handelt und ändert die Ansicht auf 100%.

Basic

Sub CheckZoom
   Dim oDoc as Object
   oDoc = ThisComponent
    If oDoc.supportsService("com.sun.star.text.TextDocument" ) then
      ThisComponent.CurrentController.ViewSettings.ZoomValue=100
   end if
end sub

Wenn man dieses Makro mit dem Öffnen-Befehl verknüpft, gibt es nie wieder.... (Extras- >Anpassen > Ereignisse)