automatizare inserare imagine in mai multe fisiere

[halfbebi]

Buna ziua,
va rog putin ajutor, sau mai mult.
Am un document, cum fac o automatizare ca:
la sfarsitul textului, ultimei litere din cuvant(ca si cum as da click) sa inserez 5 enter`uri
(ca sa fac un pic de spatiu) si sa adaug o poza cu atribut de "behind text" (din folder specificat)
Am pornit de aici:

' mutat cursorul la sfarsit de text
' adaugare 5 linii
'inserez poza
Sub Example1()
Selection.InlineShapes.AddPicture FileName:= _
"D:\temp\poza.jpg", LinkToFile:=False, _ 'dar cu efect de behinde text
SaveWithDocument:=True
End Sub

dar mai departa m`am pierdut
Multumesc anticipat

P.S. asta pentru inceput, rugamintea e sa se duca pe mai multe fisiere word

[halfbebi]

update
asta am reusit, mai ramane:
1. sa se ruleze dintr`o singura comanda, chiar cu Alt+F8 si RUN (ordinea este:GoToEnd, LinieNoua, imagine)
2. macroul sa se propage pe "n" documente
Stima

[halfbebi]

update
ramane
2. macroul sa se propage pe "n" documente
Stima

Sub total()
' total Macro

' GoToEnd Macro
Selection.EndKey Unit:=wdStory

' LinieNoua Macro
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph

' imagine Macro
Application.ScreenUpdating = False
Dim Rng As Range, Shp As Shape, StrImg As String
StrImg = "d:\InsertPozaWord\QRtest.png"
Set Rng = Selection.Range
Rng.Collapse
Set Shp = ActiveDocument.InlineShapes.AddPicture(FileName:=StrImg, _
SaveWithDocument:=True, Range:=Rng).ConvertToShape
With Shp
.LockAspectRatio = True
.Left = CentimetersToPoints(1.5)
.Top = CentimetersToPoints(0.5)
.Width = CentimetersToPoints(2.5) ' 2-mareste chenarul, am pus 10 e ok
.WrapFormat.Type = wdWrapBehind
End With
Set Rng = Nothing: Set Shp = Nothing
Application.ScreenUpdating = True

End Sub

[halfbebi]

update, cred ca final

Sub Multiplic()
'
' Multiplic Macro
'
Dim file
Dim path As String

' Path to your folder. MY folder is listed below. I bet yours is different.
' make SURE you include the terminating "\"
'YOU MUST EDIT THIS.
path = "d:\InsertPozaWordMultiple\"

'Change this file extension to the file you are opening. .htm is listed below. You may have rtf or docx.
'YOU MUST EDIT THIS.
file = Dir(path & "*.docx")
Do While file <> ""
Documents.Open FileName:=path & file

' This is the call to the macro you want to run on each file the folder
'YOU MUST EDIT THIS. lange01 is my macro name. You put yours here.
Call total

' Saves the file
ActiveDocument.Save
ActiveDocument.Close
' set file to next in Dir
file = Dir()
Loop