Partager via

J'aimerai insérer des photos dans word de manière automatique, sans avoir à les faires un par un

Anonyme
2024-07-07T16:04:43+00:00

Bonjour, devant travailler sur plusieurs procès-verbaux de constat, je dois insérer un peu partout dans mon texte des photos prises sur le terrain.

Problème, l'insertion manuelle des photos sur Word (que ce soit en copier-coller ou glisser déposer + réajustement de la taille des photos) est extrêmement chronophage et mon ordinateur risque d'en souffrir également, surtout qu'il s'agit souvent de centaines de photos voire de milliers de photos.

Je sais qu'il est possible de mettre des balises numérotées dans le texte pour les lier à un dossier où se trouvent les images pour qu'à la fin de la rédaction, j'appuie sur un bouton et toutes les photos concernées (groupés dans un dossier et numérotés) soient intégrés dans le texte.

Pouvez-vous m'indiquer comment faire?

Dans la première capture (gauche), vous voyez un exemple de texte dans lequel j'aimerai intégrer les photos. J'ai mis des balises comme <photo 001> pour indiquer là où les photos doivent être insérées.

Dans la capture de droite, vous avez le résultat attendu (ici photos dimensionnées à 4cm de hauteur) lorsque j'aurai terminé ma rédaction. Inutile de vous dire que là, j'ai fait des insertions manuelles et cela m'a pris déjà plusieurs minutes alors imaginez faire ça avec cent ou mille photos.

J'espère avoir été suffisemment précis.

Merci d'avance pour votre aide

Microsoft 365 et Office | Installer, entrer des clés, activer | Autres | Autres

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires Aucun commentaire

3 réponses

  1. Anonyme
    2024-07-11T03:14:44+00:00

    Cette réponse a été automatiquement traduite. Par conséquent, il peut y avoir des erreurs grammaticales ou des formulations étranges.

    Merci pour votre réponse, je suis content que ma solution vous ait aidé avec succès.

    Salutations les plus sincères

    Linn |Spécialiste du support communautaire Microsoft

    Cette réponse a-t-elle été utile ?

    0 commentaires Aucun commentaire
  2. Anonyme
    2024-07-08T08:32:36+00:00

    Rebonjour, merci beaucoup pour votre retour et surtout pour cette excellente piste. Je vais essayer cette méthode et approfondir le sujet en me renseignat davantage.

    Cette réponse a-t-elle été utile ?

    0 commentaires Aucun commentaire
  3. Anonyme
    2024-07-08T08:12:07+00:00

    Cette réponse a été automatiquement traduite. Par conséquent, il peut y avoir des erreurs grammaticales ou des formulations étranges.

    Cher M.Raza,

    Bienvenue chez Microsoft Communauté.

    Bonjour, je comprends que votre problème est que vous devez insérer un grand nombre d’images dans un document Word. Cela peut être réalisé à l’aide d’une macro VBA. J’ai fourni un exemple ci-dessous. Malheureusement, la communauté Microsoft est une plate-forme de support technique pour les particuliers et les utilisateurs professionnels généraux, et la portée de ce problème dépasse évidemment cette portée.

    Votre problème semble nécessiter un support plus spécialisé, je vous recommande de demander de l’aide à Word - Microsoft Q&A (en anglais uniquement), vous pouvez afficher le contenu plus facilement en utilisant la fonction Traduire cette page dans le menu contextuel où il y a plus d’experts dans le domaine connexe qui peuvent fournir une meilleure solution. vous pouvez cliquer sur « Poser une question ».

    Envisagez d’utiliser des macros et des scripts pour insérer des images par lots. Cette méthode nécessite des connaissances et des compétences en programmation, mais voici les étapes de base :

    1. Écrivez une macro : Ouvrez un document Word et cliquez sur l’onglet Développeur. Sélectionnez Macros, donnez-lui un nom, puis cliquez sur Créer. Dans l’éditeur de macros, écrivez du code VBA pour insérer des images par lots. Un exemple de code pourrait consister à lire tous les fichiers image d’un dossier et à les insérer à différents endroits du document.
    2. Exécutez la macro : Dans le code de macro que vous avez écrit, ajoutez une logique pour gérer automatiquement l’insertion de chaque image, en vous assurant que le chemin d’accès ou le nom de fichier est correct. Exécutez la macro pour insérer automatiquement toutes les images.
    3. Déboguer et optimiser : Avant d’exécuter la macro, il est recommandé de la tester sur un document de sauvegarde pour s’assurer qu’elle fonctionne comme prévu. Déboguez et optimisez si nécessaire pour vous assurer que la macro peut gérer toutes les situations possibles.

    Notes:

    Lorsque vous insérez un grand nombre d’images, assurez-vous que votre ordinateur est suffisamment puissant pour gérer un si grand nombre d’images afin d’éviter que Word ne se bloque ou ne s’exécute lentement.

    Assurez-vous que tous les chemins d’accès aux fichiers image ou les noms de fichiers sont corrects, sinon cela pourrait entraîner des échecs d’insertion ou des erreurs de document.

    Lorsque vous utilisez des macros et des scripts, assurez-vous de la sécurité et assurez-vous d’exécuter uniquement du code de macro à partir de sources fiables.

    Voici un exemple de code de macro VBA simple pour l’insertion par lots de toutes les images d’un dossier spécifié dans un document Word.

    Sub InsertImagesFromFolder()
    
        Dim doc As Document
    
        Dim folderPath As String
    
        Dim fileName As String
    
        Dim imagePath As String
    
        Dim i As Integer
    
        Set doc = ActiveDocument
    
        folderPath = "C:\Path\To\Your\Folder\"
    
        If Dir(folderPath, vbDirectory) = "" Then
    
            MsgBox "The specified folder does not exist. Please check the path."
    
            Exit Sub
    
        End If
    
        fileName = Dir(folderPath & "*.jpg") 
    
        i = 1
    
        Do While fileName <> ""
    
            imagePath = folderPath & fileName
    
            doc.Sections(i).Headers(wdHeaderFooterPrimary).Range.InlineShapes.AddPicture FileName:=imagePath, _
    
                LinkToFile:=False, SaveWithDocument:=True
    
            fileName = Dir
    
            i = i + 1
    
            ' doc.Sections(i).Footers(wdHeaderFooterPrimary).Range.InlineShapes.AddPicture ...
    
        Loop
    
        MsgBox "Complete"
    
    End Sub
    

    Si vous avez d’autres questions, n’hésitez pas à en discuter avec moi dans la réponse. Le code ci-dessus insérera une image du dossier spécifié en haut de chaque page.

    Sinceres salutations

    Linn |Spécialiste du support communautaire Microsoft

    Cette réponse a-t-elle été utile ?

    0 commentaires Aucun commentaire