Sub InsertPictures()
Dim strFolder As String
Dim strFile As String
Dim ilsh As InlineShape
strFolder = "C:\MyFolder"
strFile = Dir$(strFolder & "\*.jpg")
Do Until strFile = ""
Set ilsh = ActiveDocument.InlineShapes.AddPicture(strFolder & "\" & strFile, False, True, ActiveDocument.Bookmarks("\EndOfDoc").Range)
strFle = Dir$()
Loop
End Sub
|