Chaque semaine, John doit créer un invoice et insérer plusieurs images numérisées dans un document Word. Il se demande s’il existe un moyen de mettre toutes les images JPG d’un dossier particulier dans le document Word actuel.

Il existe plusieurs façons de procéder. Une façon est de sélectionner simplement tous les graphiques et de les insérer en une seule étape:

  1. Placez le point d’insertion à l’endroit du document où vous souhaitez insérer les graphiques.

  2. Choisissez Insertion | Image | À partir du fichier. Word affiche la boîte de dialogue Insérer une image.

  3. Utilisez le contrôle Regarder dans pour localiser le dossier qui contient les images.

  4. Appuyez sur Ctrl + A. Word sélectionne tous les fichiers du dossier.

  5. Cliquez sur OK ou sur Insérer, selon votre version de Word.

C’est ça; Word insère tous les graphiques dans le document. Vous voudrez faire attention en faisant cela, car s’il y en a beaucoup (plus de, disons, 100)

graphiques dans le dossier ou si les fichiers graphiques sont assez volumineux, vous pouvez ralentir l’analyse de Word ou le suspendre complètement. Si le dossier contient plus que des graphiques ou que vous ne voulez que certains des fichiers graphiques, vous pouvez maintenir la touche Ctrl enfoncée pendant que vous utilisez la souris pour sélectionner des graphiques à l’étape 4. Le fait est que quels que soient les fichiers que vous avez sélectionnés à l’étape 4, ce sont les fichiers que Word insère dans votre document.

Une variante de cette approche implique l’utilisation de Windows. Suivez ces étapes générales:

  1. Placez le point d’insertion à l’endroit du document où vous souhaitez insérer les graphiques.

  2. Réduisez le document Word.

  3. Sous Windows, affichez le dossier dans lequel se trouvent les images.

  4. Créez un jeu de sélection des images que vous souhaitez insérer dans le document.

  5. Cliquez sur n’importe quelle image dans le jeu de sélection et maintenez le bouton de la souris enfoncé.

  6. Faites glisser le jeu de sélection sur le haut du document tel qu’il apparaît dans la barre des tâches. (Ne relâchez pas encore le bouton de la souris.)

  7. Une fois que Windows affiche le document Word (ce qu’il fait après quelques secondes), relâchez le bouton de la souris.

À ce stade, toutes les images que vous avez sélectionnées à l’étape 4 sont insérées dans le document Word, comme dans la méthode précédente.

Si vous utilisez l’une des méthodes ci-dessus, vous devrez redimensionner les images et les déplacer, si nécessaire, afin que votre document apparaisse comme vous le souhaitez.

Bien sûr, si vous avez besoin d’insérer régulièrement des groupes d’images entiers, ces étapes peuvent devenir fastidieuses après un certain temps.

L’ennui est souvent soulagé par l’utilisation d’une macro, et ce cas ne fait pas exception. La macro suivante peut être utilisée pour afficher une boîte de dialogue (similaire à celles utilisées dans les méthodes précédentes) dans laquelle vous pouvez sélectionner les fichiers souhaités. Lorsque vous fermez la boîte de dialogue, toutes les images que vous avez sélectionnées dans la boîte de dialogue sont insérées dans votre document, chacune dans son propre paragraphe.

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

Si vous ne voulez pas vous soucier de sélectionner des dossiers ou des fichiers, vous pouvez utiliser une macro encore plus simple. Ce qui suit extrait tous les fichiers JPG d’un dossier spécifié et les place dans le document actuel. Chaque image est dans son propre paragraphe.

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

Pour utiliser la macro, assurez-vous simplement de modifier la valeur affectée à sPath afin qu’elle représente le dossier souhaité.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (10726) s’applique à Microsoft Word 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban de Word (Word 2007 et plus tard) ici:

link: / wordribbon-Inserting_Multiple_Graphics_in_a_Document [Insertion de plusieurs graphiques dans un document].