Як пакетно вставити декілька зображень у документ Word

У цій статті ми хотіли б запропонувати вам спосіб пакетного вставлення кількох зображень у ваш документ Word.

Працюючи з малюнками в Word, вам буде комфортно. Коли ви вставите зображення в документ, вам, можливо, доведеться вручну змінити його розмір або ввести його назву. Як щодо використання макросу для автоматичного виконання завдання?

Макрос, який ми вам представимо, здатний виконувати такі функції:

1. По-перше, він вставляє точну кількість зображень, які ви вказуєте на кожній сторінці.
2. По-друге, він вставляє назву під кожне зображення.
3. По-третє, він змінює розміри зображень відповідно до введених розмірів.

Тепер давайте подивимося, як ми змусимо це працювати.

Пакетне вставлення кількох зображень у документ

1. Перш за все, розташуйте всі зображення, які потрібно вставити, в одній папці.
2. Потім натисніть «Alt+F11», щоб викликати редактор VBA у Word.
3. Далі натисніть проект «Звичайний».
4. Потім у рядку меню натисніть “Вставити”.
5. І в спадному меню виберіть «Модуль».
6. Відкрийте модуль подвійним клацанням і вставте наступні коди:

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(msoFileDialogFolderPicker)
  
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox ("No Folder is selected!")
      Exit Sub
    End If
  End With

  strFile = Dir(StrFolder & "*.*", vbNormal)
  strPictureNumber = InputBox("Input the number of the picture for each page", "Picture Number", "For exemple: 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("Do you want to resize all pictures?", 4, "Resize Picture")
  If nResponse = 6 Then
    strPictureSize = InputBox("Input the height and width of the picture, seperated by comma", "Height and Width", "For exemple:500,500")
    For Each objInlineShape In ActiveDocument.InlineShapes
      objInlineShape.Height = Split(strPictureSize, ",")(0)
      objInlineShape.Width = Split(strPictureSize, ",")(1)
    Next objInlineShape
  End If
End Sub

7. Потім натисніть «Виконати» або натисніть «F5».
8. Під час виконання макросу з’явиться вікно «Огляд». Просто виберіть папку, у якій зберігаються зображення, на кроці 1 і натисніть «OK».
9. Далі у полі «Номер зображення» введіть число, яке відповідає загальній кількості зображень, які ви хочете розмістити на одній сторінці. Натисніть «ОК», щоб продовжити.
10. У полі «Змінити розмір зображення» натисніть «Так», щоб змінити розмір усіх зображень, і «Ні», щоб скасувати це.
11. Тепер у полі «Висота та ширина» введіть значення та розділіть їх комами. Не забудьте спочатку ввести висоту, а потім ширину. Пробіл після коми не ставиться.
12. Так само натисніть «OK», щоб продовжити.

Тепер на одній сторінці є 2 зображення, і під кожним є своя назва. Ось результат:

Слідкуйте за цілісністю даних

Завжди існує ризик втрати даних або їх якимось чином скомпрометовано. Це означає, що ми повинні регулярно перевіряти цілісність даних. І як тільки ми знайдемо будь-яку ознаку Пошкодження словом, найкращий спосіб відновити дані – отримати інструмент для відновлення.

Вступ автора:

Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі Відновлення Excel та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com