InsertPictures secundário ()
strFolder não ofuscante como a corda
strFile não ofuscante como a corda
Ilsh não ofuscante como InlineShape
strFolder = “C:\MyFolder”
strFile = Dir$ (strFolder & “\ *.jpg”)
Faz até strFile = o ""
Ajustar o ilsh = o ActiveDocument.InlineShapes.AddPicture (strFolder & “\” & strFile, falso, verdadeiro, ActiveDocument.Bookmarks (“\ EndOfDoc”). Escala)
strFle = Dir$ ()
Laço
Submarino da extremidade
|