In reine Textansicht umschalten

Manche Word-Benutzer sehnen sich nach den guten alten WordPerfect-Zeiten, in denen nichts außer der Statuszeile den Blick auf den Text versperrte. Obwohl eine solche Darstellung mit dem Befehl »Ansicht | Ganzer Bildschirm« auch in Word möglich ist, hat sie dort einen Nachteil. Es erscheint eine störende Symbolleiste zum Zurückschalten in die Normalansicht.

Nervt Sie das, können Sie über ein Makro einen völlig leeren Bildschirm generieren. Dazu rufen Sie »Extras | Makro | Makros« auf, vergeben dem neuen Makro einen Namen wie »GanzerBildschirmUmschalten« und tragen folgende Anweisungen in den Funktionsrumpf des VB-Moduls ein oder laden das Listing von der Heft-CD CHIP-Code WPSICHT:

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