Discussion :

[einsteineuzzz]

Bonjour j'ai un document word qui contient des noms d'images (format .jpg).
Et j'aimerai faire une macro qui me permettrait de remplacer ces noms par les images elles meme.
Quelqu'un pourait m'aiguiller sur la manière de proceder?
J'ai pensé a parcourir un folder qui contient toutes mes images, et pour chaque image trouvé, créer un signet sur le nom. Rechercher ce signet et le remplacer par l'image... mais plus facile a dire qu'a faire pour moi... Est-ce un bon raisonnement?
Merci

[Heureux-oli]

Salut,

Une des solutions serait de scanner le répertoire contenant les images pour en récupérer le contenu.
Ensuite parcourir le document à la recherche des expressions contenant .jpg pour faire ensuite une comparaison et si la comparaison donne un résultat, insérer l'image.

[einsteineuzzz]

Alors je fais ca étape par étape:
etape 1: trouver le nom de l'image dans le document Word
étape 2: remplacer celui-ci par une image

Si jarrive déja a faire ca pour une image, je pense qu'apres ce sera dja plus simple.
Alors, bien sur, je bloque déja, j'ai réussi a remplacer le nom de l'image par un autre texte. Mais pour le remplacer par une image ... problème!!!
Voila mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
ub RemplaceText()
Dim newName As String
Dim oldName As String
Dim str As String
 
 
oldName = "image.jpg"
newName = "imageDu Folder.jpg"
 
ActiveDocument.Range.Select
With Selection.Find
    .Text = oldName
    .Replacement.Text = newName
 
    .Forward = True
    .ClearFormatting
    .Wrap = wdFindContinue
 
    .Execute Replace:=wdReplaceAll
 
End With

[Heureux-oli]

Salut,

Les images peuvent être des champs contenant le chemin de l'image.

http://heureuxoli.developpez.com/off...hamps/#LIV-D-3

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldIncludePicture, Text:="C:\\Temp\\Manual Instalacion.gif"

Ça peut être des Shapes ou des InlineShapes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Selection.InlineShapes.AddPicture FileName:= _
        "C:\Temp\Manual Instalacion.gif", LinkToFile:=False, SaveWithDocument:= _
        True

[einsteineuzzz]

Voila mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub MacroAlbumFind()
 
    Dim newName As String
    Dim oldName As String
    Dim str As String
    Dim fs, f, f1, fc, s
    
  With Dialogs(wdDialogFileFind)
    .Display
    ChangeFileOpenDirectory .SearchPath
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(.SearchPath)
    Set fc = f.Files
    For Each f1 In fc
        oldName = f1.Name
        ActiveDocument.Range.Select
        With Selection.Find
            .Text = oldName
            .InlineShapes.AddPicture FileName:=f1.Name            .Forward = True
            .ClearFormatting
            .Wrap = wdFindContinue
            .Execute Replace:=wdReplaceAll
        End With
    Next
  End With
    
End Sub

Pourtant il me retourne cette erreur: Compil error: Method or data member not found, sur la ligne en rouge.

[Heureux-oli]

Salut,

Logique, tu utilises un membre à Selection.Find !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.InlineShapes.Add

est différent de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.Find.InlineShapes.Add

Tu dois faire une boucle pour tous les résultats si tu en as plusieurs et à chaque fois utiliser l'objet Selection qui est renvoyé.

[einsteineuzzz]

Merci pour ton aide. Avec les indicatiosn que tu m'as données, j'ai pu aboutir a ce que je voulais.

Voila le code final....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Sub RemplaceTexteParImage()
 
  Dim fs, f, f1, fc
 
  With Dialogs(wdDialogFileFind)
    .Display
    ChangeFileOpenDirectory .SearchPath
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(.SearchPath)
    Set fc = f.Files
    For Each f1 In fc
        With Selection.Find
            .Text = f1.Name
            .Forward = True
            .ClearFormatting
            .Wrap = wdFindContinue
        End With
 
        Do While Selection.Find.Execute = True
            Selection.InlineShapes.AddPicture FileName:=f1.Name
       Loop
    Next
  End With
 
End Sub

[Heureux-oli]

Salut,

Juste une petite précision.

Lorsque tu utilises une bibliothèque externe comme le FileScriptingRuntime, il est préférable de l'ajouter au projet dans outils Références.

Lorsque tu déclares les objets, tu peux alors directement les typer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim fs As FileSystemObject
Dim f As Folder

Lorsque tu vas écrire ton code, tu pourras bénéficier de l'intellisense, c'est une aide à l'écriture dans VBE qui te donne les différents méthodes ou propriétés disponibles pour ton objet.