Ein Makro druckt eine Liste aller Befehle

Wollen Sie alle Befehle lernen, die Ihre Textverarbeitung zu bieten hat? Wenn Sie Word 97 Ihr Eigen nennen, dürften Sie mit diesem Vorhaben ein paar Wochen beschäftigt sein, da dieses Programm über rund 1000 Befehle verfügt. Sie werden sich also auf diejenigen beschränken müssen, die für Ihre Arbeit am wichtigsten sind.

Dennoch kann es nicht schaden, eine komplette Übersicht in gedruckter Form zur Verfügung zu haben. Denn meistens läßt einen gerade dann das Gedächtnis im Stich, wenn man einen eher exotischen Befehl benötigt. Da viele Anwender mit Shortcuts arbeiten, bietet es sich zudem an, die Tastenkombinationen für die wichtigsten Befehle in die Übersicht mit aufzunehmen. Das unten abgebildete VBA-Makro »WordBefehleDrucken« liefert eine solche Befehlsliste.

Dieses Makro erstellt ein neues Dokument mit einer vierspaltig formatierten Tabelle. In der ersten Spalte der Tabelle erscheint der Befehlsname, in der zweiten und dritten die entsprechende Tastenkombination falls vorhanden und in der vierten ein Hinweis auf das Menü, in dem der Befehl zu finden ist. Das Dokument wird auf dem Drucker ausgegeben, so daß Sie dann ein rund 20 bis 25 Seiten starkes Nachschlagewerk in den Händen halten. Das dazugehörende Dokument wird übrigens nur vorübergehend gespeichert und nach dem Ausdruck wieder entfernt.

Makrolisting zum Drucken aller Word-97-Befehle:

Public Sub WordBefehleDrucken()

Dim i%, Befehle%

Application.ListCommands ListAllCommands:=True

Befehle = ActiveDocument.Tables(1).Rows.Count

With ActiveDocument.Tables(1).Rows(1).Shading

.Texture = wdTexture20Percent

.ForegroundPatternColorIndex = wdBlack

.BackgroundPatternColorIndex = wdAuto

End With

With Selection

.SplitTable

.InsertBreak Type:=wdPageBreak

.HomeKey Unit:=wdStory

.TypeText text:=Übersicht über alle Word 97 - Befehle ( “ & Str(Befehle) & “ )ö

.HomeKey Unit:=wdStory

.MoveRight Unit:=wdSentence, Extend:=wdExtend

.ParagraphFormat.Alignment = wdAlignParagraphCenter

With .Font

.Underline = wdUnderlineSingle

.Italic = wdToggle

.Bold = wdToggle

.Size = 20

End With

.HomeKey Unit:=wdStory

For i = 1 To 10

.TypeParagraph

Next

End With

With ActiveDocument

.PrintOut

.Close SaveChanges:=wdDoNotSaveChanges

End With

End Sub