- Katılım
- 22 Aralık 2005
- Mesajlar
- 9
- Excel Vers. ve Dili
- 2010 Türkçe Lisanslı
Merhabalar;
Forumda bulmuş olduğum bir kod üzerinde biraz değişiklik yapmam gerekti ancak Word'e toplu olarak eklediğim dosyaları rastgele sırayla ekliyor. Benim klasörümde ise, bu dosyalar eklenmesi gereken isme göre sıralı durumda.(Örn: 1-Ocak-1.png,1-ocak-2.png....12-aralık-19.png)
Wordde toplu dosya eklerken, alfabetik sıraya göre okumasını nasıl sağlarız?
Çok fazla resim olduğu için tek tek eklemek uğraştırıcı görünüyor.
Yardımlarınız için teşekkür ederim.
NOT: Kullandığım kod :
Forumda bulmuş olduğum bir kod üzerinde biraz değişiklik yapmam gerekti ancak Word'e toplu olarak eklediğim dosyaları rastgele sırayla ekliyor. Benim klasörümde ise, bu dosyalar eklenmesi gereken isme göre sıralı durumda.(Örn: 1-Ocak-1.png,1-ocak-2.png....12-aralık-19.png)
Wordde toplu dosya eklerken, alfabetik sıraya göre okumasını nasıl sağlarız?
Çok fazla resim olduğu için tek tek eklemek uğraştırıcı görünüyor.
Yardımlarınız için teşekkür ederim.
NOT: Kullandığım kod :
Kod:
yol = ThisDocument.Path & "\"
Dosya = Dir$(yol & "*.png")
Do While Dosya <> ""
ActiveDocument.InlineShapes.AddPicture FileName:=yol & Dosya, LinkToFile:=False, SaveWithDocument:=True
Dosya = Dir$
Son düzenleme: