Microsoft Word: Nur die Building Blocks.dotx Einträge drucken

In diesem Beitrag erfährst du, wie du eine Liste deiner Schnellbausteine erstellst, die in der Datei Building Blocks.dotx abgelegt wurden.

Hinweis: In Word wird zwischen den AutoTexten, die in der Datei Normal.dotm und den Schnellbausteinen, die standardmäßig in der Datei Building Blocks.dotx gespeichert werden, unterschieden. In der Datei Build_In Building Blocks.dotx sind die Schnellbausteine gespeichert, die zum Lieferumfang von Word gehören.

Die Liste, die du gleich erzeugst, ist nach Katalogen gruppiert. Die folgende Abbildung zeigt meine Schnellbausteine in der Datei Building Blocks.dotx, gruppiert nach den Katalogen.

Die Liste meiner Schnellbausteine

Im Bonusteil erfährst du, wie du nur die Liste deiner AutoText-Einträge in der Normal.dotm druckst.

Grundsätzliches zu den Schnellbausteinen in Word

Wenn du einen Schnellbaustein anlegst, dann entscheidest du, in welchem Katalog er abgelegt wird.

• Über die Befehlsfolge Einfügen / Schnellbausteine / Auswahl im Schnellbaustein-Katalog speichern startest du das Speichern des markierten Textes.
• Im Feld Katalog wählst du den Katalog aus.

Den Schnellbaustein in einem Katalog ablegen

Im Fenster Organizer für Schnellbausteine kannst du deine Schnellbausteine bearbeiten. Wenn du allerdings viele Einträge hast, dann wird es sehr schnell unübersichtlich.

Das Fenster Organizer für Schnellbausteine

Die Liste der Schnellbausteine in Word selbst erstellen

Es geht nicht ohne ein wenig Programmieren. Aber keine Sorge, der Code ist fertig und muss nur noch von dir kopiert und an einer ganz bestimmten Stelle eingefügt werden.

Wie das geht, das erfährst du hier:

• Kopiere den Code ganz unten in diesem Beitrag. Achte darauf, dass vom Wort Sub bis zu den Wörtern End Sub alles markiert und kopiert wird.
• Wenn der Code in der Zwischenablage liegt, starte Word mit einem leeren Dokument. Achte darauf, dass nur dieses Word-Dokument geöffnet ist. So kommst du gleich im VBA-Editor nicht durcheinander.
• Drücke [Alt] + [F11] um den VBA-Editor zu öffnen.
• Wähle im Menü Einfügen den Befehl Modul.
• Klicke rechts in das leere Modulblatt und füge den Code aus der Zwischenablage ein.

Der Code ist an der richtige Stelle

• Klicke in den Code und drücke die Taste [F5]. Damit startest du das Makro.

Das war es.

• Wechsel nach Word und sieh dir die Liste deiner Schnellbausteine an.
• Speicher das Dokument mit dem Dateityp *.docm ab, damit der Code im Dokument bleibt.

Hinweis: Wenn du jetzt nur den Text Normal.dotm siehst, wähle Einfügen / Schnellbausteine / Oganizer für Schnellbausteine und schließe das Fenster wieder. Erst jetzt erkennt Word die Existenz der Schnellbausteine. Wechsel über die Taskleiste wieder in den VBA-Editor, klicke in deinen Code und drücke [F5].

Wenn du dir wieder einmal eine Liste deiner Schnellbausteine anzeigen lassen möchtest, öffne das Dokument, bestätige den Hinweis auf die Makros und drücke [Alt] + [F8].

Das Makro aus dem Fenster Makros starten.

Markiere das Makro PrintBuildingBlocks und klicke auf die Schaltfläche Ausführen. Die Liste wird wieder ab Cursorposition eingefügt.

Bonus: Alle Word AutoText-Einträge drucken

Du kannst die AutoText-Einträge aus der Normal.dotx direkt ohne Makro drucken.

• Wähle Datei / Drucken.
• Klappe das Feld Alle Seiten drucken auf und wähle den Eintrag AutoText-Einträge.

Nur die AutoTexte drucken.

3. Klicke auf den Schalter Drucken.

Tipp: Wenn du nicht weißt, wie viele Seiten gedruckt werden, stelle zur Sicherheit als Ausgabe das PDF-Format ein.

Der Code

[code lang=“vb“]
Sub BuildingBlocksDrucken()
Dim Vorlage As Template
Dim BBT As BuildingBlockType
Dim Kategorie As Category
Dim BB As BuildingBlock
Dim i As Integer
Dim k As Integer
Dim b As Integer

For Each Vorlage In Templates

Selection.TypeText Vorlage.Name & vbCrLf

If LCase(Left(Vorlage.Name, Len(„Building Blocks.dotx“))) = „building blocks.dotx“ Then

For i = 1 To Vorlage.BuildingBlockTypes.Count
Set BBT = Vorlage.BuildingBlockTypes(i)

If BBT.Categories.Count > 0 Then

Selection.TypeText vbTab & BBT.Name & vbCrLf
For k = 1 To BBT.Categories.Count
Set Kategorie = BBT.Categories(k)

Selection.TypeText vbTab & vbTab & Kategorie.Name & vbCrLf
For b = 1 To Kategorie.BuildingBlocks.Count
Set BB = Kategorie.BuildingBlocks.Item(b)

Selection.TypeText vbTab & vbTab & vbTab & _
„BB “ & b & „: “ & BB.Name & vbCrLf
Selection.TypeText vbTab & vbTab & vbTab & _
„Description: “ & BB.Description & vbCrLf
Selection.TypeText vbTab & vbTab & vbTab & _
„Value: “ & BB.Value & vbCrLf & vbCrLf
Next b
Next k
Else

Selection.TypeText vbTab & BBT.Name & _
“ (no entries)“ & vbCrLf
End If
Next i
End If

Next Vorlage
End Sub
[/code]