Userform'dan Seçtiğimiz Word Belgesini Açmak.

[İsmail Küçükşengün]

Merhabalar;

Userformun olduğu Excel ile açılmasını istediğimiz Word belgelerini aynı klasör içine atıp:
Userformdaki seçeneklerden, istediğimiz Word belgesini nasıl açabiliriz.

Açıklama klasördeki Excel dosyasındadır.
Şimdiden teşekkürlerimi sunuyorum.

 

[Levent Menteşoğlu]

Seçilecek belgelerin isimleri nelerdir, yani optionbutonlardaki A, B, C ve D harflerimidir. Bence bu butonlara sadece dosya adlarını yazın ve aşağıdaki kodu göster butonuna kopyalayarak deneyin.

[vb:1:aa25cfc63a]For a = 1 To 4
If Controls("optionbutton" & a).Value = True Then ad = Controls("optionbutton" & a).Caption
Next
Shell "WINWORD.EXE " & ActiveWorkbook.Path & "\" & ad & ".doc", vbNormalFocus
[/vb:1:aa25cfc63a]

 

[İsmail Küçükşengün]

Sayın Leventm;

Shell "WINWORD.EXE " & ActiveWorkbook.Path & "\" & ad & ".doc", vbNormalFocus
[/vb][/quote]

1-)Burada & ad & bu araya mı dosya ismi yazılacak;

2-)Userformun bulunduğu Excel dosyası ile açmak istediğimiz Word belgleri ayn klasör içinde olma şart mı?

Teşekkür ve saygılarımla.

 

[Levent Menteşoğlu]

1-)Burada & ad & bu araya mı dosya ismi yazılacak;

Evet, dosya isimlerini optionbuttonların caption özelliğine yazarsanız, seçili olan butona göre dosya adını kendisi alacaktır.

2-)Userformun bulunduğu Excel dosyası ile açmak istediğimiz Word belgleri ayn klasör içinde olma şart mı?

Elbette değil ama sorunuzda böyle istemişsiniz, farklı klasör için

ActiveWorkbook.Path yerine klasörün yolunu yazın. Örneğin;

Shell "WINWORD.EXE " & "C:\deneme\" & ad & ".doc", vbNormalFocus

 

[İsmail Küçükşengün]

Sn. Leventm.

Verdiğiniz kodu "GÖSTER" butonuna kopyaladım.
Word belgelerinin adı Optionbutonlardaki isimler. Fakat yine de istenen belgeler açılmıyor.

Teşekkür ve selamlarımı sunar, bu hızınızın kesilmemesini dilerim.

 

[İsmail Küçükşengün]

Ekteki gibi uyarı çıkıyor.

 

[İsmail Küçükşengün]

Bir türlü beceremedim.

Klasörü sunuyorum.
Klasör içindeki excel dosyasının Userformundan seçtiğimiz Word belgesinin açılması.

 

[Ongun]

Sayın Kucuksengun, örnek bir dosya gönderiyorum. Sanırım işinizi görür.

Bu dosyada, yol olarak C:/BELGE1.doc ve C/BELGE2.doc var. Siz bunu istediğiniz gibi değiştirebilirsiniz. Kolay gelsin. :hey:

 

[İsmail Küçükşengün]

Sn. Ongun

Dosya açılamıyor.

 

[Ongun]

Sn. Ongun

Dosya açılamıyor.

Sayın Kucuksengun, yani word dosyasımı açılmıyor, eğer öyleyse öncelikle yapmanız gereken, BELGE1 ve BELGE2 adında iki word belgesini boş olarak C:/ sürücüsüne kaydedin.

Bunu yaptığınız takdirde userform daki seçime göre bu dosyalar açılacaktır. Program bu şekilde çalışıyor. Kolay gelsin.

 

[İsmail Küçükşengün]

Sn. Ongun;

Hata uyarısı veriyordu.
ThisWorbok'taki kodları sildim.
Çalışıyor. Silinen kodların herhalde fazla bir fonksiyonu yoktu galiba.

Teşekkürlerimi sunuyorum.