В этой статье мы хотели бы предложить вам способ пакетной вставки нескольких изображений в документ Word.
Вы можете чувствовать себя комфортно, работая с изображениями в Word. После того, как вы вставите изображение в документ, вам, возможно, придется вручную изменить его размер или ввести его имя. Как насчет использования макроса для автоматического выполнения задачи?
Макрос, который мы собираемся вам представить, способен выполнять следующие функции:
- Во-первых, он вставляет точное количество изображений, которое вы укажете на каждой странице.
- Во-вторых, он вставляет имя под каждой картинкой.
- В-третьих, он изменяет размеры изображений в соответствии с введенными вами размерами.
Теперь давайте посмотрим, как мы заставим его работать.
Пакетная вставка нескольких изображений в документ
- Прежде всего, расположите все изображения в одной папке.
- Затем нажмите «Alt + F11», чтобы вызвать редактор VBA в Word.
- Затем нажмите «Обычный» проект.
- Затем в строке меню нажмите «Вставить».
- И в выпадающем меню выберите «Модуль».
- Откройте модуль двойным щелчком мыши и вставьте следующие коды:
Sub InsertSpecificNumberOfPictureForEachPage() Dim StrFolder As String Dim strFile As String Dim objDoc As Document Dim dlgFile As FileDialog Dim objInlineShape As InlineShape Dim nResponse As Integer Dim strPictureNumber As Integer Dim strPictureSize As String Dim n As Integer Set dlgFile = Application.FileDialog( мсофиледиалогфолдерпикер) с dlgFile If .Show = -1 Then StrFolder = .SelectedItems(1) & "\" Else MsgBox ("Папка не выбрана!") Exit Sub End If End With strFile = Dir(StrFolder & "*.*", vbNormal) strPictureNumber = InputBox("Введите номер изображения для каждой страницы", "Номер изображения", "Например: 1") n = 1 While strFile <> "" Selection.InlineShapes.AddPicture FileName:=StrFolder & strFile, LinkToFile :=False, SaveWithDocument:=True Selection.TypeParagraph Selection.Collapse Direction:=wdCollapsEnd Selection.TypeText Text:=Left(strFile, InStrRev(strFile, ".") - 1) Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter If ActiveDocument.InlineShapes .Count = strPictureNumber * n Then Selection.InsertNewPage Selection.TypeBackspace n = n + 1 End If Selection.TypeParagraph strFile = Dir() Wend For Each objInlineShape In ActiveDocument.InlineShapes objInlineShape.Select Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Next objInlineShape nResponse = MsgBox("Вы хотите изменить размер всех изображений?", 4, "Изменить размер изображения") If nResponse = 6 Then strPictureSize = InputBox("Введите высоту и ширину изображения через запятую", "Высота и ширина", "Например: 500,500 0") Для каждого objInlineShape в ActiveDocument.InlineShapes objInlineShape.Height = Split(strPictureSize, ",")(1) objInlineShape.Width = Split(strPictureSize, ",")(XNUMX) Next objInlineShape End If End Sub
- Затем нажмите «Выполнить» или нажмите «F5».
- При запуске макроса появится окно «Обзор». Просто выберите папку, в которой вы храните изображения на шаге 1, и нажмите «ОК».
- Затем в поле «Номер изображения» введите число, представляющее общее количество изображений, которые вы хотите разместить на одной странице. И нажмите «ОК», чтобы продолжить.
- В поле «Изменить размер изображения» нажмите «Да», чтобы изменить размер всех изображений, и «Нет», чтобы отменить его.
- Теперь в поле «Высота и ширина» введите значения и используйте запятую для разделения. Не забудьте сначала ввести высоту, а затем ширину. После запятой пробела нет.
- Точно так же нажмите «ОК», чтобы двигаться дальше.
Теперь на одной странице 2 картинки, и у каждой под ней свое название. Вот результат:
Следите за целостностью данных
Всегда существует риск потери данных или их компрометации. Это означает, что мы должны регулярно проверять целостность данных. И как только мы найдем какие-либо признаки Повреждение слова, лучший способ восстановить данные — это получить инструмент для восстановления.
Об авторе:
Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая Восстановление Excel и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com
Разобрался сам, так как такой информации нигде не нашел, и решил поделиться со всеми.
Если вам нужно просто засунуть много сканов документа в вордовский файл, чтобы все картинки были в одном файле, нужно нажать «Вставить картинку» и в окне просмотра файловой системы выбрать несколько сканов. Однако эти сканы автоматически добавятся в хаотическом порядке. Чтобы они добавились в правильном порядке – нужно зажать клавишу CTRL и постепенно менять файлы в обратном порядке. После этого нажмите «Добавить».
Есть еще 1 момент. Перед добавлением картинок необходимо изменить размеры полей документа, если вы хотите, чтобы документ автоматически отображал все картинки во всем масштабе. Например, я поставил 0,5 см, можно попробовать и 0 см для всех полей всех сторон.
Надеюсь, помогло. Удачи.
На моем слове iOS не работает. Ошибка выполнения «5948».
СПАСИБО! Этот код модуля сэкономил мне столько работы! Я ценю вас и всех, кто готов поделиться своими знаниями с другими.
Какая единица измерения высоты и ширины?… миллиметры? Дюймы? Пиксели?
Кроме того, если мне нужно вставить 1 фотографию на страницу, а у меня 100 фотографий, мне нужно 100 страниц. Будет ли этот макрос (или Word) автоматически реплицировать первую страницу 99 раз, позволяя вставлять 1 фотографию на страницу, или мне нужно создать шаблон документа Word на 100 страниц, чтобы это работало? Если да, то как мне создать мастер-документ на 100 страниц (пустой) в Word… кажется, в Word нет такого способа. Спасибо
Не могли бы вы добавить в код сценарий, в котором слово будет сохранено в выбранной папке с тем же именем, что и указанная папка? Пример имени папки: TEST1234; Имя файла Word: TEST1234.docx. Слово должно быть сохранено внутри папки.
унифирам (кодовое название разработки dm-235) представляет собой экспериментальный препарат, обладающий антиамнестическим действием в исследованиях на животных и обладающий значительно более высокой эффективностью, чем пирацетам. сунифирам представляет собой молекулярное упрощение унифирама (dm-232). другой аналог – сапунифирам (мн-19). по состоянию на 2016 год сунифирам не подвергался ни токсикологическим испытаниям, ни клиническим испытаниям на людях, и не одобрен для использования нигде в мире.
Спасибо за этот макрос. У вас есть макрос, который вставляет любое количество выбранных изображений в 3 или 6 изображений на странице A4 во второй столбец таблицы из 3 столбцов?
Ширина столбцов: Col1 = 1 см; Кол2 = 8см; Кол3 = 8см