Word 97/2000 – Makro und Dialog für die Auswahl von Schriftarten erstellen

In Word müssen Sie beim Aussuchen einer Schrift immer wieder im Listenfeld blättern, bis Sie die gewünschte Schriftdarstellung gefunden haben. Mit dem folgenden Makro vereinfachen Sie diesen Vorgang.

Sie können über ein Dialogfenster wesentlich schneller auf die gewünschte Schriftart zugreifen:

So erstellen Sie das Formular

1. Drücken Sie die Tasten ALT + F11 (= Tastenkombination für Menü Extras - Makro - Visual Basic-Editor).
   
   
   
2. Wählen Sie im linken oberen Teilfenster die gewünschte Dokumentvorlage aus, in die das Makro eingefügt werden soll. Voreingestellt ist die Dokumentvorlage "Normal".
3. Klicken Sie im Menü Einfügen den Eintrag UserForm.
4. Vergeben Sie im linken unteren Fenster Eigenschaften einen Namen für das Formular, z.B. "formularSchriftauswahl".
5. Geben Sie neben Caption ein, welche Beschriftung der Dialog tragen soll, z.B. "Verfügbare Schriften".
6. Klicken Sie mit der rechten Maustaste das Formular und wählen Sie im Kontextmenü Code anzeigen.
7. Klicken Sie im rechten oberen Listenfeld des Code-Fensters den Eintrag Initialize.
8. Löschen Sie die Zeilen
   Private Sub UserForm_Click() und End Sub
9. Geben Sie zwischen Private Sub UserForm_Initialize() und End Sub folgende Zeilen ein (oder kopieren Sie den folgenden Code):
   Dim AktFont As Variant
   If Selection.Type = wdSelectionNormal Then
   Selection.Copy
   With Me
   .Caption = "Verfügbare Schriften"
   .StartUpPosition = 0
   .Left = Application.Width - .Width
   End With
   With listeSchriften
   For Each AktFont In Application.FontNames
   .AddItem AktFont
   If Selection.Font.Name = AktFont Then
   .ListIndex = .ListCount - 1
   End If
   Next
   .SetFocus
   End With
   Else
   MsgBox "Sie haben keinen Text markiert."
   End
   End If
10. Schließen Sie das Code-Fenster.

So erstellen Sie das Listenfeld

1. Neben dem Formular sehen Sie die Werkzeugsammlung. Falls nicht, klicken Sie im Menü Ansicht den Eintrag Werkzeugsammlung.
2. Klicken Sie das Steuerelement Listenfeld und zeichnen Sie das Feld in das Formular.
   
   
   
   
3. Markieren Sie das Listenfeld und vergeben Sie bei den Eigenschaften neben (Name) einen Namen für das Listenfeld, z.B. "listeSchriften".
4. Klicken Sie mit der rechten Maustaste in das Listenfeld und wählen Sie im Kontextmenü Code anzeigen.
5. Geben Sie zwischen Private Sub listeSchriften_Click() und End Sub folgende Zeile ein:
   Selection.Font.Name = listeSchriften.Text
6. Schließen Sie das Code-Fenster.

So erstellen Sie die Schaltflächen

1. Markieren Sie das Formular - die Werkzeugsammlung wird wieder eingeblendet.
2. Klicken Sie in der Werkzeugsammlung die Befehlsschaltfläche und zeichnen Sie ein Feld dafür in das Formular.
   
   
   
   
3. Geben Sie im Eigenschaftsfenster neben (Name) "befehlOK" und neben Caption "OK" ein.
4. Klicken Sie mit der rechten Maustaste auf die neue Schaltfläche und wählen Sie im Kontextmenü Code anzeigen.
5. Geben Sie zwischen Private Sub befehlOK_Click() und End Sub folgende Zeile ein:
   Unload Me
6. Schließen Sie das Code-Fenster.
7. Klicken Sie in der Werkzeugsammlung die Befehlsschaltfläche und zeichnen Sie ein Feld dafür in das Formular.
8. Geben Sie im Eigenschaftsfenster neben (Name) "befehlAbbrechen" und neben Caption "Abbrechen" ein.
9. Klicken Sie mit der rechten Maustaste auf die neue Schaltfläche und wählen Sie im Kontextmenü Code anzeigen.
10. Geben Sie zwischen Private Sub befehlAbbrechen_Click() und End Sub folgende Zeilen ein:
    Selection.Paste
    Unload Me
11. Schließen Sie das Code-Fenster.

So erstellen Sie das Makro

1. Klicken Sie im Menü Einfügen den Eintrag Modul. Es öffnet sich ein Fenster, in dessen Titelleiste der Name der Dokumentvorlage erscheint.
2. Ändern Sie im linken unteren Teilfenster Eigenschaften den Namen des Moduls. Wählen Sie hierfür einen aussagekräftigen Namen, z.B. "Schriften".
3. Geben Sie im Modul-Fenster folgende Zeilen ein:
   Sub Schriftauswahl()
   formularSchriftauswahl.Show
   Die Bezeichnung des anzuzeigenden Formulars (formularSchriftauswahl.Show) ist diejenige, die Sie am Anfang beim Erstellen des Formulars in Schritt 4 vergeben haben.
   Die Zeile End Sub wird automatisch eingefügt, falls nicht, müssen Sie End Sub manuell eingeben.
4. Schließen Sie den Visual Basic-Editor.
5. Klicken Sie Extras-> Makro -> Makros, wählen Sie das neue Makro und klicken Sie Ausführen.

Für den schnellen Zugriff auf das Makro fügen Sie ein Symbol in die Symbolleiste ein. Wie das geht, lesen Sie im Tipp "Eigene Symbolleiste erstellen".

---

20.01.05
Eva Fitz - Redaktionsleiterin bei Comet Computer
Weitere Artikel von Eva Fitz