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