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.

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

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.

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.

1. 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.

[code lang="vb"]Sub BuildingBlocksDrucken()Dim Vorlage As TemplateDim BBT As BuildingBlockTypeDim Kategorie As CategoryDim BB As BuildingBlockDim i As IntegerDim k As IntegerDim b As IntegerFor Each Vorlage In TemplatesSelection.TypeText Vorlage.Name & vbCrLfIf LCase(Left(Vorlage.Name, Len("Building Blocks.dotx"))) = "building blocks.dotx" ThenFor i = 1 To Vorlage.BuildingBlockTypes.CountSet BBT = Vorlage.BuildingBlockTypes(i)If BBT.Categories.Count > 0 ThenSelection.TypeText vbTab & BBT.Name & vbCrLfFor k = 1 To BBT.Categories.CountSet Kategorie = BBT.Categories(k)Selection.TypeText vbTab & vbTab & Kategorie.Name & vbCrLfFor b = 1 To Kategorie.BuildingBlocks.CountSet BB = Kategorie.BuildingBlocks.Item(b)Selection.TypeText vbTab & vbTab & vbTab & _"BB " & b & ": " & BB.Name & vbCrLfSelection.TypeText vbTab & vbTab & vbTab & _"Description: " & BB.Description & vbCrLfSelection.TypeText vbTab & vbTab & vbTab & _"Value: " & BB.Value & vbCrLf & vbCrLfNext bNext kElseSelection.TypeText vbTab & BBT.Name & _" (no entries)" & vbCrLfEnd IfNext iEnd IfNext VorlageEnd Sub[/code]