그래픽 축소판 인쇄 (Microsoft Word)

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