Каждую неделю Джону необходимо создавать invoice и вставлять несколько отсканированных документов в документ Word. Он задается вопросом, есть ли способ поместить все изображения JPG из определенной папки в текущий документ Word.

Есть несколько способов сделать это. Один из способов — просто выбрать всю графику и вставить ее за один шаг:

  1. Поместите точку вставки в то место документа, куда вы хотите вставить графику.

  2. Откройте вкладку Вставка на ленте.

  3. Щелкните инструмент Изображение. Word отображает диалоговое окно «Вставить рисунок».

  4. Используйте элементы управления в диалоговом окне, чтобы найти папку, содержащую изображения.

  5. Нажмите Ctrl + A. Word выбирает все файлы в папке.

  6. Щелкните Вставить.

Это оно; Word вставляет всю графику в документ. Будьте осторожны, делая это, потому что если их много (скажем, более 100)

графики в папке или, если графические файлы довольно большие, вы можете замедлить Word до сканирования или полностью его завесить. Если папка содержит больше, чем просто графику или вам нужны только некоторые графические файлы, вы можете удерживать нажатой клавишу Ctrl, когда используете мышь для выбора графики на шаге 5. Дело в том, что любые файлы, которые вы выбрали на шаге 5, это файлы, которые Word вставляет в ваш документ.

Вариант этого подхода предполагает использование Windows. Выполните следующие общие шаги:

  1. Поместите точку вставки в то место документа, куда вы хотите вставить графику.

  2. Сверните документ Word.

  3. В Windows отобразите папку, в которой находятся изображения.

  4. Создайте набор изображений, которые вы хотите вставить в документ.

  5. Щелкните любое изображение в выбранном наборе и удерживайте кнопку мыши.

  6. Перетащите выбранный набор поверх документа, как он отображается на панели задач. (Пока не отпускайте кнопку мыши.)

  7. Когда Windows отобразит документ Word (что произойдет через несколько секунд), отпустите кнопку мыши.

На этом этапе все изображения, выбранные на шаге 4, вставляются в документ Word, как и в предыдущем методе.

Если вы используете любой из вышеперечисленных методов, вам нужно будет изменить размер изображений и при необходимости переместить их, чтобы ваш документ выглядел так, как вы хотите.

Конечно, если вам нужно регулярно вставлять целые группы изображений, то выполнение этих шагов через некоторое время может стать утомительным.

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

Sub InsertImages()

Dim doc As Word.Document     Dim fd As FileDialog     Dim vItem As Variant     Dim mg1 As Range     Dim mg2 As Range

Set fd = Application.FileDialog(msoFileDialogFilePicker)

Set doc = ActiveDocument

With fd         .Filters.Add "Images", ".gif; .jpg; *.jpeg", 1         .FilterIndex = 1

If .Show = -1 Then             For Each vItem In .SelectedItems                 Set mg2 = ActiveDocument.Range                 mg2.Collapse wdCollapseEnd                 doc.InlineShapes.AddPicture _                   FileName:=vItem, _                   LinkToFile:=False, SaveWithDocument:=True, Range:=mg2                 Set mg1 = ActiveDocument.Range                 mg1.Collapse wdCollapseEnd

mg1.Text = vbCrLF & vbCrLf             Next vItem         End If     End With

Set fd = Nothing End Sub

Если вы не хотите возиться с выбором папок или файлов, вы можете использовать еще более простой макрос. Следующее извлекает все файлы JPG из указанной папки и помещает их в текущий документ. Каждое изображение находится в отдельном абзаце.

Sub GetPictures()

Dim sPic As String     Dim sPath As String

sPath = "c:\myfolder\"

sPic = Dir(sPath & "*.jpg")



Do While sPic <> ""

Selection.InlineShapes.AddPicture _           FileName:=sPath & sPic, _           LinkToFile:=False, SaveWithDocument:=True         sPic = Dir         Selection.TypeParagraph         Selection.TypeParagraph     Loop End Sub

Чтобы использовать макрос, просто убедитесь, что вы изменили значение, присвоенное sPath, так, чтобы оно представляло нужную папку.

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

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

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

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

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

link: / word-Inserting_Multiple_Graphics_in_a_Document [Вставка нескольких изображений в документ].