VBA CODE , how to to control where to put the pictures

[ElCapitano]

So this code will put pictures from a specific folder in your word. You have any ideea how can i control where to put the pictures ? what I must change in the code...

Sub GetPictures()
    Dim sPic As String
    Dim sPath As String
sPath = "c:\myfolder"
    sPic = Dir(sPath & "*.jpg")
Do While sPic <> ""
        Selection.InlineShapes.AddPicture _
          FileName:=sPath & sPic, _
          LinkToFile:=False, SaveWithDocument:=True
        sPic = Dir
        Selection.TypeParagraph
        Selection.TypeParagraph
    Loop
End Sub

[gmayor]

See your other thread re the path. The code starts placing the pictures from the cursor position. Where did you want to put them?

[ElCapitano]

See your other thread re the path. The code starts placing the pictures from the cursor position. Where did you want to put them?

I want to put them after a specific text. example: lion - to put the picture with the name lion