Word belgesi kapatma (kaydetmeden kapansın)

[Ongun]

Günaydın arkadaşlar,

Yazı.doc adlı bir word belgem var. Bu word belgesini açıyorum gerekli değişiklikleri yapıyorum, yazıcıdan çıktısını aldıktan sonra kaydetmeden kapatmasını istiyorum. Yani kaydetmek istiyormusunuz? diye sormasın.

Bunu makro ile yapmak mümkünmüdür?

Bu konuda yardımcı olabilirmisiniz. Saygılarımla.

 

[Ongun]

:yardim: :yardim: :yardim:

 

[mehmett]

"Kaydetmeden" kelimesini ararsanız bu konuda örnek çalışmalar bulabilirsiniz.

İşte bir örnek.

http://www.excel.web.tr/viewtopic.php?t=14148

 

[Ongun]

Sayın mehmett,

Word belgesinin kaydedilmeden ve uyarı vermeden kapatılmasını istiyorum. Site`de arama yaptım ancak bulamadım. Word belgesi olduğu için söz konusu kodları nereye nasıl yazacağımı çözemedim. Excel`de sorun yok, o konuda bilgim var. Ancak, word`de bir türlü yapamadım.

Yardımlarınızı bekliyorum. Saygılarımla. :hey:

 

[Ongun]

:yardim:

 

[Ongun]

Selam arkadaşlar,

Sorunumu bir türlü çözemedim. Word belgesini X`den kapatınca kaydetmek istiyormusunuz diye sormasını istemiyorum. Yani kaydetmeden kapansın istiyorum.

Lütfen bana yardımcı olurmusunuz. Saygılarımla. :kafa: :kafa: :kafa:

 

[Levent Menteşoğlu]

Her ne kadar word makroları ile ilgilenmemiş olsamda, aşağıdaki kodu Thisdocument kod sayfasına kopyalayarak bir deneyin.

[vb:1:e311b9474c]Private Sub Document_Close()
ActiveDocument.Close 0
End Sub
[/vb:1:e311b9474c]

 

[Ongun]

Sayın leventm, öncelikle ilginize çok teşekkür ederim.

Verdiğiniz kodu denedim ancak "komut başarısız" mesajı verdi.

Saygılarımla

 

[Ongun]

Herkese selamlar,

Arkadaşlar soruma çözüm bulamadım. :kafa:

Bir kez daha gündeme getirmek istiyorum. Bu konuda bana yardımcı olabilirmisiniz.

Saygılarımla :hey:

 

[Ongun]

Arkadaşlar, herkese çalışmalarında başarılar dilerim.

Bu konuyla ilgilenen ve bilgisi olan varsa lütfen bana yardımcı olursanız sevinirim. Saygılarımla :dua: :dua: :dua:

 

[Haluk]

Bir modül ekleyin, içine de aşağıdakini yapıştırın ...

Sub AutoClose()
    ThisDocument.Saved = True
End Sub

 

[Ongun]

Sayın Haluk bey, elinize yüreğinize sağlık çok teşekkür ederim. :dua:

Saygılarımla, :mutlu: