InsertPictures secondario ()
strFolder fioco come stringa
strFile fioco come stringa
Ilsh fioco come InlineShape
strFolder = “C:\MyFolder„
strFile = Dir$ (strFolder & “\ *.jpg„)
Fa fino a strFile = il ""
Regolare il ilsh = ActiveDocument.InlineShapes.AddPicture (strFolder & “\„ & strFile, falso, allineare, ActiveDocument.Bookmarks (“\ EndOfDoc„). Gamma)
strFle = Dir$ ()
Ciclo
Sommergibile dell'estremità
|