Einfacheres Umschalten der Ansicht mit Hilfe eines Makros

Erinnern Sie sich an die alten WordPerfect-für-MS-DOS-Zeiten? Nur die Statuszeile erinnerte an ein laufendes Textverarbeitungsprogramm, der ganze Bildschirm stand für den geschriebenen Text zur Verfügung. Eher wenig bekannt ist die Tatsache, daß ein solcher Darstellungsmodus auch in Word existiert. Allerdings ist die Funktion zum Aktivieren dieser Darstellungsart etwas abseits der Layout-Ansichten plaziert und somit nicht unbedingt auf Anhieb zu finden. Sie finden sie am unteren Ende des »Ansicht«-Menüs unter der Bezeichnung »Ganzer Bildschirm«. Außerdem erscheint eine etwas störende zusätzliche Symbolleiste auf dem Bildschirm der Ganzseitenansicht, die dem Zurückschalten in die Normalansicht dienen soll.
Makro anlegen:
Die an sich sinnvolle Funktion kann mit einem kleinen Makro wesentlich einfacher genutzt werden. Betätigen Sie die Tastenkombination [Alt] [F8] und schreiben Sie in die Zeile »Makroname« die Bezeichnung »GanzerBildschirmUmschalten«. Nach einem Klick auf die Schaltfläche »Erstellen« geben Sie im Visual-Basic-Editor das abgebildete Listing ein. Achten Sie aber darauf, daß die erste und letzte Zeile (»Sub ...« und »End Sub«) bereits automatisch generiert wurden und nicht ein zweites Mal eingegeben werden dürfen. Nachdem Sie alle Befehle eingetippt haben, schließen Sie das Visual-Basic-Fenster wieder.
Der erste Start:
Nun öffnen Sie das »Makros«-Fenster erneut mit [Alt] [F8]. Markieren Sie den neuen »Makronamen« und starten Sie das Makro mit einem Klick auf »Ausführen« zum ersten Mal. Im Kontextmenü des Dokuments wird jetzt ein neuer Eintrag samt Icon hinzugefügt. In Zukunft brauchen Sie nur noch mit der Maus rechts in das Dokument zu klicken, um zu der Umschaltfunktion »Ganzer Bildschirm« beziehungsweise der »Fenster-Ansicht« zu gelangen. Die störende Symbolleiste zum Zurückschalten in den Fenster-Modus wird nicht mehr benötigt und deshalb vom Makro abgeschaltet.
Gerhard Frey


Makro-Listing zum komfortablen Umschalten zwischen Fenster- und Ganzseiten-Modus

Sub GanzerBildschirmUmschalten()

Dim cBar As CommandBarControl

Dim cNew As CommandBarControl

Dim cCap(1) As String

Static n As Integer

æ

cCap(0) = “Ganzer Bildschirmö

cCap(1) = “Fenster-Ansichtö

æ

Set cBar = CommandBars(“Textö).FindControl(Type:=msoControlButton, Tag:=öFULLö)

If cBar Is Nothing Then

Set cNew = CommandBars(“Textö).Controls.Add(Type:=msoControlButton, Before:=1)

With cNew

.Style = msoIconAndCaption

.FaceId = 69

.Tag = “FULLö

.OnAction = “GanzerBildschirmUmschaltenö

.Caption = cCap(0)

End With

Else

With ActiveWindow.View

.FullScreen = Not .FullScreen

End With

CommandBars(“Full Screenö).Visible = False

n = n Xor 1: cBar.Caption = cCap(n)

End If

End Sub