InsertPictures secondaire ()
Faible strFolder comme corde
Faible strFile comme corde
Faible ilsh comme InlineShape
strFolder = « C:\MyFolder »
strFile = Dir$ (strFolder et « \ *.jpg »)
Font jusqu'à strFile = le ""
Placer l'ilsh = l'ActiveDocument.InlineShapes.AddPicture (strFolder et « \ » et strFile, faux, vrai, ActiveDocument.Bookmarks (« \ EndOfDoc »). Gamme)
strFle = Dir$ ()
Boucle
Sous-marin d'extrémité
|