Comment insérer plusieurs images par lots dans votre document Word

Dans cet article, nous aimerions vous proposer le moyen d'insérer par lots plusieurs images dans votre document Word.

Vous pouvez vous sentir à l'aise lorsque vous travaillez avec des images dans Word. Une fois que vous avez inséré une image dans le document, vous devrez peut-être la redimensionner manuellement ou saisir son nom. Que diriez-vous d'utiliser une macro pour exécuter automatiquement la tâche ?

La macro que nous allons vous présenter est capable des fonctions suivantes :

1. Tout d'abord, il insère le nombre exact d'images que vous spécifiez dans chaque page.
2. Deuxièmement, il insère le nom sous chaque image.
3. Troisièmement, il redimensionne les images en fonction des numéros de taille que vous entrez.

Voyons maintenant comment nous le faisons fonctionner.

Insertion par lots de plusieurs images dans le document

1. Tout d'abord, organisez toutes les images à insérer dans le même dossier.
2. Appuyez ensuite sur "Alt + F11" pour appeler l'éditeur VBA dans Word.
3. Cliquez ensuite sur le projet "Normal".
4. Ensuite, dans la barre de menu, cliquez sur "Insérer".
5. Et dans le menu déroulant, choisissez "Module".
6. Ouvrez le module en double-cliquant et collez les codes suivants :

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. Cliquez ensuite sur "Exécuter" ou appuyez sur "F5".
8. Lors de l'exécution de la macro, la fenêtre "Parcourir" apparaîtra. Choisissez simplement le dossier dans lequel vous conservez les images à l'étape 1 et cliquez sur "OK".
9. Ensuite, dans la case "Numéro d'image", entrez un nombre représentant le nombre total d'images que vous souhaitez sur une seule page. Et cliquez sur "OK" pour continuer.
10. Dans la case "Redimensionner l'image", cliquez sur "Oui" pour redimensionner toutes les images et sur "Non" pour l'annuler.
11. Maintenant, dans la case "Hauteur et largeur", entrez des valeurs et utilisez une virgule pour les séparer. N'oubliez pas d'entrer d'abord la hauteur, puis la largeur. Il n'y a pas d'espace après la virgule.
12. De même, cliquez sur "OK" pour continuer.

Maintenant, il y a 2 images sur une page et chacune a son nom en dessous. Voici le résultat :

Gardez un œil sur l'intégrité des données

Il y a toujours le risque de perdre des données ou de les compromettre d'une manière ou d'une autre. Cela signifie que nous devons vérifier régulièrement l'intégrité des données. Et une fois que nous trouvons le moindre signe de Dégâts de mots, la meilleure façon de récupérer des données est d'obtenir un outil de réparation.

Introduction de l'auteur:

Vera Chen est une experte en récupération de données dans DataNumen, Inc., qui est le leader mondial des technologies de récupération de données, y compris Récupération Excel et pdf réparer les produits logiciels. Pour plus d'informations, visitez www.datanumen.com