Word-Toplu Resim Ekleme Sorunu [Çözüldü]

[I-TECH-INN]

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 :

yol = ThisDocument.Path & "\"
Dosya = Dir$(yol & "*.png")
Do While Dosya <> ""
    ActiveDocument.InlineShapes.AddPicture FileName:=yol & Dosya, LinkToFile:=False, SaveWithDocument:=True
Dosya = Dir$

 

[I-TECH-INN]

Merhabalar tekrar;

yol = ThisDocument.Path & "\"
Dosya = Dir$(yol & "*.png")
a = 1
Do While Dosya <> ""
   Selection.InsertCaption Label:="Şekil", TitleAutoText:="", _
   Title:="Resim Başlığı", _
   Position:=wdCaptionPositionAbove, ExcludeLabel:=0
    Selection.TypeText Text:=Chr(13) 
    Selection.InlineShapes.AddPicture FileName:=yol & Dosya, LinkToFile:=False, SaveWithDocument:=True
    Selection.TypeText Text:=Chr(12)
Dosya = Dir$
Loop

ActiveDocument yerine selection kullanınca sorunum çözüldü. Kodun bir kısmı yine yukarıdaki gibidir. En azından belki bir başkasının işine yarayacaktır.

Otomatik resim yazısı eklemesi, nizam açısından resim yazısından sonra 1 enter (chr(13)), her sayfada 1 resim olacak şekilde uğraştım. (chr(12))

saygılar

 

[leumruk]

Merhaba,
Verdiğiniz örnek dosya isimlerinde alfabetik bir düzen görünmüyor. Sıradan kastınız sayısal bir sıra mı? Eğer öyleyse dosya ismindeki hangi sayı referans alınacak?

 

[I-TECH-INN]

Merhaba,
Verdiğiniz örnek dosya isimlerinde alfabetik bir düzen görünmüyor. Sıradan kastınız sayısal bir sıra mı? Eğer öyleyse dosya ismindeki hangi sayı referans alınacak?

Sayın leumruk,

Öncelikle forumdaki Resim ekleme ile ilgili olan kodunuzdan fazlasıyla faydalandığımı belirtmek isterim ve size teşekkürlerimi sunarım.

Sıralamaya gelince, Excel ya da Wordde aynı mı bilmiyorum ama PHP'de order veya sort (sıra) işlemlerinde sayısal veriler de sıralamada önem teşkil etmekte. Şöyle ki, önce sayısal veriler, sonra alfa-sayısal veriler sonra da alfabetik veriler olarak sıralama işlemi yapılmakta.

O sebeple, alışkanlıktan dolayı alfabetik demiş bulundum aslında. Ancak maksadım, "Küçükten Büyüğe rakamsal sıralama" işlemini dile getirmekti

Saygılarımla
Aytekin

 

[leumruk]

Sanırım mesajları aynı anda yazmışız. Sorunu çözmüşsünüz anlaşılan. İyi akşamlar dilerim.