macro-insert picture

Trebam Macro koji bi iz određene datoteke u Wordov dokument umetnuo slike (format nije bitan), i to više slika odjednom. Slike svaki put nemaju isti naziv, a i broj nije isti (ponekad umećem dvije, jednu ili više).
Dokument mora biti Word.

Unaprijed hvala

evo macroa nadam se da nije kasno

1. Macro koji umece jednu ili x slika, automatski podesava velicinu slike prema marginama dokumenta i potpisuje sliku - potpis = filename

Sub Stavi_Slike_i_naslov()
'
' dddd Macro
' Macro created 15.9.2010 by vaske
'Sub InsertImages()
Dim doc As Word.Document
Dim bkmName As String
Dim SigFile As String
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Set doc = ActiveDocument
Dim vrtSelectedItem As Variant
Dim theText() As String
Dim theText2 As String


With fd
.Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1

'Sets the initial file filter to number 2.
.FilterIndex = 1

If .Show = -1 Then

For Each vrtSelectedItem In .SelectedItems
Set mg2 = ActiveDocument.Range
mg2.Collapse wdCollapseEnd

doc.InlineShapes.AddPicture _
fileName:=vrtSelectedItem, _
LinkToFile:=False, SaveWithDocument:=True, Range:=mg2
Set mg1 = ActiveDocument.Range
mg1.Collapse wdCollapseEnd
'mg1.MoveEnd Unit:=wdCharacter, Count:=-1

theText() = Split(vrtSelectedItem, "\")
theText2 = theText(UBound(theText))
theText2 = Left(theText2, InStrRev(theText2, ".") - 1)

mg1.Text = Chr(13) + Chr(10) + theText2 + Chr(13) + Chr(10) + Chr(13) + Chr(10)
Next vrtSelectedItem
Else
End If
End With


End Sub


Ako zelis vise slika drzi Ctrl + file ili Ctrl + A za sve slike iz foldera

Hvala na pomoći.