如果您大量使用图形，那么您可能已经很熟悉“缩略图”一词。这些是图形的较小版本，打印在一页上，使您可以对所有图形进行“鸟瞰”。许多图形程序和桌面发布程序都包含缩略图功能，可让您自动打印概述。不幸的是，Word不包括此功能，但是您可以使用宏添加这样的功能。以下VBA宏从单个目录的内容创建了一组缩略图：

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

在此宏中，您需要做的就是更改指定Directory变量的行，以反映存储图形的目录。您也可以通过更改FType的分配来更改图形文件的规范（当前已设置为返回目录中的所有JPG文件）。当您运行此宏时，将创建一个新文档，并且该宏开始构建具有五列的表格，但是打印图形需要许多行。该宏将在一张纸上打印大约40张左右的缩略图，具体取决于您在默认模板中使用的设置。

有一个使用此宏的警告-您应该意识到您的文档大小将非常非常快地增长。虽然在文档中以小（缩略图）尺寸显示图形，但在后台，图形仍保持其完整尺寸。如果要处理的图形很多，那么文档的大小可能会变得很笨拙，并且系统的响应时间可能会非常缓慢。

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（8023）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。 Word的旧菜单界面在这里：

打印图形缩略图。