Word image insérer 2 fois

  • Initiateur de la discussion Initiateur de la discussion meldja
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

meldja

XLDnaute Impliqué
Bonjour,
J'ai un document de plus de 2000 pages. Je veux insérer une image à chaque occurrence d'un mot clé dans le document.
Quand je lance la macro, je dois choisir le fichier image (une signature) et lui indiquer le mot clé au niveau duquel elle doit insérer l'image. Le problème est que l'image est insérer 2 fois.
Je laisse le code VBA au cas ou quelqu'un voudrait bien y jeter un coup d’œil. Merci
VB:
Dim Repertoire As String
Dim Fichier As Variant
Dim MotCle As String
Dim DesiredWidth As Double
Dim DesiredRatio As Double
Dim image As Shape

Application.FileDialog(msoFileDialogOpen).Show

Fichier = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)
MotCle = InputBox("Entrer le mot clé", "Choix de l'emplacement")

Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting


With Selection.Find
     .MatchWildcards = True
     .Text = MotCle
          
        Do While .Execute
        Set image = ActiveDocument.Shapes.AddPicture(FileName:=Fichier)
        With image
        .WrapFormat.Type = 3
        .ZOrder 5
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
        .Left = wdShapeCenter
        End With
        Loop
End With
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
Réponses
0
Affichages
1 K
darib52
D
Retour