Если вы немного работаете с графикой, вы, вероятно, уже знакомы с термином «эскизы». Это уменьшенные версии вашей графики, напечатанные на одной странице, которые позволяют вам видеть всю вашу графику «с высоты птичьего полета». Многие графические программы и настольные издательские программы включают функцию эскизов, которая позволяет автоматически распечатать обзор. К сожалению, 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"



With Application.FileSearch       .FileName = FType       .LookIn = Directory       .Execute       If .FoundFiles.Count > 0 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

For J = 1 To .FoundFiles.Count          FName = .FoundFiles(J)

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             If J <> .FoundFiles.Count 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          End If       Next J    End With End Sub

В этом макросе все, что вам нужно сделать, это изменить строку, определяющую переменную Directory, чтобы отразить каталог, в котором хранится ваша графика. Вы также можете изменить спецификацию графического файла, изменив назначение FType (в настоящее время он настроен на возврат всех файлов JPG в каталоге). Когда вы запускаете этот макрос, создается новый документ, и макрос начинает строить таблицу с пятью столбцами и тем количеством строк, которое необходимо для печати вашей графики. Макрос напечатает около 40 эскизов на листе бумаги, в зависимости от настроек, которые вы используете в шаблоне по умолчанию.

При использовании этого макроса есть одно предостережение — вы должны знать, что размер вашего документа будет расти очень и очень быстро. В то время как графика отображается в документе в небольшом размере (эскиз), за кулисами графика сохраняется в полном размере. Если у вас много-много обрабатываемой графики, размер документа может стать громоздким, и вы можете получить очень медленное время ответа от вашей системы.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (116) применим к Microsoft Word 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Word (Word 2007 и позже) здесь:

link: / wordribbon-Printing_Graphic_Thumbnails [Печать графических эскизов].