Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
3140 connectés 

  FORUM HardWare.fr
  Windows & Software
  Logiciels

  Word 365 remplacer chemin par image

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Word 365 remplacer chemin par image

n°3443044
GeekAlf
Posté le 16-11-2023 à 17:34:12  profilanswer
 

Bonjour,
 
j'ai en sortie de progiciel, un document word d'environ 800 salariés.
Celui-ci contient des cartes individuelles
Dans un cadre de ce document, j'ai un chemin pointant vers la photo du salarié
par exemple j'ai c:\temp\00055885.jpg
 
Je souhaite remplacer ce chemin par la photo pour que Word affiche la bobine du salarié.
Je précise bien évidemment que je n'ai pas accès à la source de données ni la possibilité de refaire une fusion publipostage  
 
J'ignore si c'est faisable.
 
Merci par avance

mood
Publicité
Posté le 16-11-2023 à 17:34:12  profilanswer
 

n°3446335
nain porte​ koi
Posté le 20-01-2024 à 09:54:45  profilanswer
 

Bonjour,
 
au cas ou le problème serait toujours d'actualité ou que qq'un d'autre en aurait besoin, voici une macro qui devrait faire d'allaire
 
Sub Remplacer_Chemin_Par_Champ_INCLUDEPICTURE()
 
    ' constante à modifier, l'* correspond à une suite de caractères inconnus
    Const Chemin_Image As String = "C:\\*.jpg"
     
    Dim Texte_Remplacement As String
    Dim Texte_Doc
    Dim Nb_Parag As Long
    Dim Num_Parag As Long
    Dim Code_De_Champ
     
    ' Boucle sur tous les parag en partant de la fin (bug sinon)
    Nb_Parag = ActiveDocument.Paragraphs.Count
    For Num_Parag = Nb_Parag To 1 Step -1
     
        ' Limite la recherche a 1 seul paragaphe à la fois
        Set Texte_Doc = ActiveDocument.Paragraphs(Num_Parag).Range
         
        ' Recherche le texte (chemin de l'image)
        With Texte_Doc.Find
            .Text = Chemin_Image ' Recherche le chemins de l'image
            .MatchWildcards = True ' obligatoire pour une recherche générique
            .Execute
            If .Found Then
                 
                ' Remplace l'\ par 2 \
                Texte_Remplacement = Replace(Texte_Doc.Text, "\", "\\" )
                 
                ' remplace le texte trouvé par le code de champ et le chemin de l'image
                Set Code_De_Champ = Texte_Doc.Fields.Add(Texte_Remplacement, Type:=wdFieldIncludePicture, Text:=Texte_Trouve)
             
            End If
        End With
    Next Num_Parag
     
End Sub
 

n°3446340
Trit'
Posté le 20-01-2024 à 10:24:57  profilanswer
 

Et avec la balise [ FIXED ] qui va bien, ça donne… :o

Sub Remplacer_Chemin_Par_Champ_INCLUDEPICTURE()
 
    ' constante à modifier, l'* correspond à une suite de caractères inconnus
    Const Chemin_Image As String = "C:\\*.jpg"
     
    Dim Texte_Remplacement As String
    Dim Texte_Doc
    Dim Nb_Parag As Long
    Dim Num_Parag As Long
    Dim Code_De_Champ
     
    ' Boucle sur tous les parag en partant de la fin (bug sinon)
    Nb_Parag = ActiveDocument.Paragraphs.Count
    For Num_Parag = Nb_Parag To 1 Step -1
     
        ' Limite la recherche a 1 seul paragaphe à la fois
        Set Texte_Doc = ActiveDocument.Paragraphs(Num_Parag).Range
         
        ' Recherche le texte (chemin de l'image)
        With Texte_Doc.Find
            .Text = Chemin_Image ' Recherche le chemins de l'image
            .MatchWildcards = True ' obligatoire pour une recherche générique
            .Execute
            If .Found Then
                 
                ' Remplace l'\ par 2 \
                Texte_Remplacement = Replace(Texte_Doc.Text, "\", "\\" )
                 
                ' remplace le texte trouvé par le code de champ et le chemin de l'image
                Set Code_De_Champ = Texte_Doc.Fields.Add(Texte_Remplacement, Type:=wdFieldIncludePicture, Text:=Texte_Trouve)
             
            End If
        End With
    Next Num_Parag
     
End Sub


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Windows & Software
  Logiciels

  Word 365 remplacer chemin par image

 

Sujets relatifs
Solution de sauvegarde et de déploiement d'imageHELP comment backup Outlook 365 et FF SANS pouvoir les lancer ?
créer un fichier video 3d avec partir d'une image bluray sous tsmuxer?Sortie de veille fond noir à la place de l'image de fond
Que deviennent les data / app. si non renouvellement de 365 ?Migration mail OVH vers 365 via Bittitan
Remplacer en masse un proprietaire de dossier inexistantExtraire l'image miniature en taille originale d'une vidéo youtube
Office pro plus installé demande activation office 365Installer windows 11 via une image sur le même disque : possible ?
Plus de sujets relatifs à : Word 365 remplacer chemin par image


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR