Récupérer image dans Word
Résolu
mijean94
Messages postés
417
Statut
Membre
-
m@rina Messages postés 26239 Statut Contributeur -
m@rina Messages postés 26239 Statut Contributeur -
Bonjour,
J’ai réalisé une petite macro a l’aide de la création auto sur Word, pour importer une image dans mon document.
Ça marche bien, mais il me manque une petite fonction et je ne trouve pas la solution sur les forums ou internet.
Voici le code :
Ce que j’aimerais ajouter, c’est la création du nom de l'image à partir des signets (text1 et text2) automatiquement, comme noté en commentaire dans la macro
Merci pour l'aide
Cordialement
J’ai réalisé une petite macro a l’aide de la création auto sur Word, pour importer une image dans mon document.
Ça marche bien, mais il me manque une petite fonction et je ne trouve pas la solution sur les forums ou internet.
Voici le code :
Sub mise_en_place_image()
Dim chemin, nom_fichier As String
'nom_fichier = (nom signet1 qui est text1)+ un blanc + nom signet2 qui est text2 + " img"
Selection.GoTo What:=wdGoToBookmark, Name:="image1"
chemin = "C:\Users\HP\"
nom_fichier = "mon image.png"
Selection.InlineShapes.AddPicture FileName:= _
chemin & nom_fichier _
, LinkToFile:=False, SaveWithDocument:=True
' sauvegarde et fermeture du doc Word, a voir commande qu'il faut faire ?
End Sub
Ce que j’aimerais ajouter, c’est la création du nom de l'image à partir des signets (text1 et text2) automatiquement, comme noté en commentaire dans la macro
Merci pour l'aide
Cordialement
A voir également:
- Récupérer image dans Word
- Word 2013 - Télécharger - Traitement de texte
- Tableau word - Guide
- Supprimer une page dans word - Guide
- Recuperer message whatsapp supprimé - Guide
- Légende image word - Guide
3 réponses
Bonjour
Voici une macro qui donne le nom du fichier, si j'ai bien compris...
m@rina
Voici une macro qui donne le nom du fichier, si j'ai bien compris...
Sub image()
Dim signet1 As String, signet2 As String, chemin As String, nom_fichier As String
chemin = "....\"
signet1 = "texte1"
signet2 = "texte2"
With ActiveDocument.Bookmarks
If .Exists(signet1) Then image1 = signet1 Else Exit Sub
If .Exists(signet2) Then Image2 = signet2 Else Exit Sub
End With
nom_fichier = signet1 & " " & signet2 & ".png"
MsgBox chemin & nom_fichier
End Sub
m@rina
