Okręt podwodny InsertPictures ()
Ciemnawy strFolder Sznurek
Ćmić strFile Sznurek
Ćmić ilsh Jako InlineShape
strFolder = "C:\MyFolder"
strFile = Dir$ (strFolder & "\ *.jpg")
Do strFile = ""
Ustalony ilsh = ActiveDocument.InlineShapes.AddPicture (strFolder & "\" & strFile, Fałszywy, Prawdziwy, ActiveDocument.Bookmarks ("\ EndOfDoc"). Pasmo)
strFle = Dir$ ()
Pętla
Końcówka Okręt podwodny
|