merhaba arkadaşlar... aşağıdaki kodun bir bölümü ile resimleri worde yazdırıyorum ancak sadece SK1 yazılı olanı yazdırıyor ve fotoğraf isimleri SK2 SK3... Diye devam etmekte ben bunları alt alta kod yazarak yapmasından ziyade fotoğrafların içinde bulunduğu SONDAJFOTOĞRAFLARI klasörünün içindeki tüm fotoğrafları alt alta worde yazdırmak istiyorum acaba koddaki SK1 yerine kalsörün içindekilerin hepsini aktarabilmem için ne yazmalıyım?
yardımlarınız için şimdiden teşekkürler...
[undefined=undefined]
With WordApp.Selection
DoCmd.OpenQuery "SONDAJRESİMSorgu" ' Burayı Değiştirdik
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
.GoTo what:=wdGoToBookmark, Name:="SONDAJRESİMSorgu"
.InlineShapes.AddPicture (CurrentProject.Path & "\SONDAJFOTOĞRAFLARI\" & "\SK1.jpg")
End With