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

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

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

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (8023) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для старый интерфейс меню Word здесь:

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