Sub InsertPictures ()
Schemerige strFolder als Koord
Schemerige strFile als Koord
Schemerige ilsh als InlineShape
strFolder = „C:\MyFolder“
strFile = Dir$ (strFolder & „\ *.jpg“)
Doe tot strFile = ""
Plaats ilsh = ActiveDocument.InlineShapes.AddPicture (strFolder & „\“ & strFile, Vals, Waar, ActiveDocument.Bookmarks („\ EndOfDoc“). Waaier)
strFle = Dir$ ()
Lijn
Sub van het eind
|