Wenn Sie viel mit Grafiken arbeiten, kennen Sie den Begriff „Thumbnails“ wahrscheinlich bereits. Hierbei handelt es sich um kleinere Versionen Ihrer Grafiken, die auf einer einzigen Seite gedruckt sind und es Ihnen ermöglichen, alle Ihre Grafiken aus der Vogelperspektive zu betrachten. Viele Grafikprogramme und Desktop Publishing-Programme enthalten eine Miniaturansicht, mit der Sie Ihre Übersicht automatisch drucken können. Leider enthält Word diese Funktion nicht, aber Sie können eine solche Funktion mit einem Makro hinzufügen. Das folgende VBA-Makro erstellt eine Reihe von Miniaturbildern aus dem Inhalt eines einzelnen Verzeichnisses:

Sub Thumbnails()

Dim Directory As String     Dim FType As String     Dim FName As String     Dim ColCount As Integer, J As Integer

Directory = "d:\temp"

FType = "*.jpg"



ChDir Directory     FName = Dir(FType)

If FName <> "" Then         Documents.Add         ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, _           NumColumns:=5         Selection.Tables(1).Select         Selection.Cells.HeightRule = wdRowHeightAuto         With Selection.Rows             .Alignment = wdAlignRowCenter             .AllowBreakAcrossPages = False             .SetLeftIndent LeftIndent:=InchesToPoints(0), RulerStyle:= _               wdAdjustNone         End With         Selection.HomeKey Unit:=wdLine         ColCount = 1     End If

Do While FName <> ""

Selection.InlineShapes.AddPicture FileName:=FName, _           LinkToFile:=False, SaveWithDocument:=True         Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter         Selection.TypeParagraph         With Selection.Font             .Name = "Arial"

.Size = 10             .Bold = True         End With          Selection.TypeText Text:=Mid$(FName, Len(Directory) + 2)

Selection.MoveRight Unit:=wdCharacter, Count:=1         ColCount = ColCount + 1         If ColCount = 6 Then             Selection.InsertRows 1             Selection.EndKey Unit:=wdLine             Selection.MoveRight Unit:=wdCharacter, Count:=1             Selection.InsertRows 1             Selection.HomeKey Unit:=wdLine             ColCount = 1         End If         FName = Dir     Loop End Sub

In diesem Makro müssen Sie lediglich die Zeile ändern, in der die Verzeichnisvariable angegeben ist, um das Verzeichnis wiederzugeben, in dem Ihre Grafiken gespeichert sind. Sie können die Grafikdateispezifikation auch ändern, indem Sie die Zuweisung von FType ändern (derzeit ist festgelegt, dass alle JPG-Dateien im Verzeichnis zurückgegeben werden). Wenn Sie dieses Makro ausführen, wird ein neues Dokument erstellt, und das Makro erstellt eine Tabelle mit fünf Spalten. Es sind jedoch viele Zeilen erforderlich, um Ihre Grafiken zu drucken. Das Makro druckt ungefähr 40 Miniaturansichten auf ein Blatt Papier, abhängig von den Einstellungen, die Sie in Ihrer Standardvorlage verwenden.

Die Verwendung dieses Makros unterliegt einer Einschränkung: Sie sollten sich bewusst sein, dass Ihre Dokumentgröße sehr, sehr schnell zunimmt. Während die Grafiken im Dokument in einer kleinen Größe (Miniaturansicht) angezeigt werden, bleiben die Grafiken hinter den Kulissen in voller Größe erhalten. Wenn viele, viele Grafiken verarbeitet werden, kann die Dokumentgröße unhandlich werden und es kann zu sehr schleppenden Antwortzeiten auf Ihrem System kommen.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (8023) gilt für Microsoft Word 2007, 2010, 2013, 2016, 2019 und Word in Office 365. Eine Version dieses Tipps finden Sie für ältere Menüoberfläche von Word hier:

Drucken von grafischen Thumbnails.