InsertPictures secundario ()
strFolder dévil como secuencia
strFile dévil como secuencia
Ilsh dévil como InlineShape
strFolder = “C:\MyFolder”
strFile = Dir$ (strFolder y “\ *.jpg”)
Hace hasta strFile = el ""
Fijar el ilsh = ActiveDocument.InlineShapes.AddPicture (strFolder y “\” y strFile, falso, verdad, ActiveDocument.Bookmarks (“\ EndOfDoc”). Gama)
strFle = Dir$ ()
Lazo
Submarino del extremo
|