Bonjour,
 
Un script vba qui semble simple mais que je n'arrive pas à faire marcher comme je veux.
Je réalise un script qui insère des images (fichiers png) dans le document courant avec, après chaque image une légende qui est le nom du fichier.
 
Alors pour insérer des images je fais :
            Selection.InlineShapes.AddPicture FileName:=sFile
            Selection.TypeParagraph
Et pour insérer du texte après je fais :
            Set oPar = ActiveDocument.Paragraphs.Add
            oPar.Range.Text = sFile
            oPar.Range.Style = "Normal"
 
Le problème que j'ai est que les images se retrouvent toutes en début de document, rangées en ordre inverse (la dernière image insérée dans la boucle se retrouve en premier dans le document)
et les légendes se retrouvent toutes en semble à la fin du document.
 
Que se passe-t-il ?
 
 

 
            Bonjour,
 
            il se passe qu'à la ligne n° …  Ah zut, le code n'a pas été balisé malgré l'icône dédiée et les règles de ce forum ‼
 
            Le VBA ne se trompant jamais, c'est juste une grossière erreur de conception !
            L'insertion s'effectuant toujours au même endroit …  
             
            Donc en déplaçant le point d'entrée, en insérant une ligne comme manuellement via la touche Entrée …
            Et l'Enregistreur de macros est l'ami du débutant !