word e toplu resim yapıştırma

[davut80]

arkadaşlar tek sütunda alt alta her iki resmin arasına # karakteri konulacak şekilde 100 tane resim yapıştırmak istiyorum bunu makro atıyarak yapabiliyoruzda ben beceremedim yardımcı olurmusunuz.şekli ekde gönderiyorum.

 

[leumruk]

Merhaba,
Ekteki dosyayı resimlerinizin bulunduğu klasöre kopyalayın ve içindeki res_al makrosunu çalıştırın.

Sub res_al()
yol = ThisDocument.Path & "\ZOR\"
Dosya = Dir$(yol & "*.jpg")
Do While Dosya <> ""
    Selection.InlineShapes.AddPicture FileName:=yol & Dosya, LinkToFile:=False, SaveWithDocument:=True
    Selection.TypeParagraph
    Selection = "#"
Dosya = Dir$
Loop
MsgBox "İşlem tamam.", vbInformation, "l e u m r u k"
End Sub