Sub DodajSlikeIzMape()
On Error Resume Next
Dim datoteka As String
Dim mapa As String
mapa = "C:\mapa\mapa2\"
datoteka = Dir(mapa & "*.*")
Do While datoteka ""
Selection.InlineShapes.AddPicture FileName:=mapa & datoteka, LinkToFile:=False, SaveWithDocument:= True
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeParagraph
Selection.TypeText Text:=datoteka
Selection.TypeParagraph
datoteka = Dir
Loop
End Sub