Normal olarak oluşturup isim verildikten sonra Word dosyası kapatılmıyorsa?
Kod:
wrd.documents.Close
wrd.Application.Quit
Yukardaki kodları (wrd tanımını kendinize uyarlayıp) kullanabilirsiniz
Hocam ilginiz için teşekkür bu kodu denedim program ile doküman açılıp o dokümana bilgi gönderildi veya gönderilmedi ise açtığı o dokümanı kapatıyor bu kod
Ben durumu şöyle arz edeyim
Mesela önceden oluşturulmuş ve ilgili klasörde bekleyen bir Word doküman veya şablon var ve kullanıcı bunlardan birisini Word ile açtı ekranda açık iken bilinçli veya bilinçsiz bu program kullanırken bu dokümanı tekrar oluşmasını sağlayacak işlemi başlattı işte bu durumda
Program bu doküman açıksa açık olan dokümanı herhangi bir onay almaksızın açık olan dokümanı ve Word ü kapatacak
Yapmak istediğim kod bu hocam
Kod:
Sub Kill_word()
Dim sKillword As String
sKillword = "TASKKILL /F /IM winword.exe"
Shell sKillword, vbHide
End Sub
Yukardaki kod açık olan tüm Word dosyalarını kaydetmeden kapatır.
NOT; Daha sonra herhangi bir Word dosyası açıldığında "Belge Kurtarma"
İletişim kutusu açılabiliyor dikkate almayın, sağ alttaki kapat düğmesine tıklayın.
Teşekkürler hocam hepinize ellerinize sağlık gösterdiğiniz şekilde uyguladım sorun çözüldü
Bir şey daha sorsam uygun olurmu buradan yeni soru açmadan
Bir formda çalışırken o formda dım ile atadığım değişkenine aradığım değerin başka aynı program içinde açılan bir formda da aktif olması için (tanınması için) ne yapabilirim modül kısmında global dosya_ismi as string olarak tanımladığım halde form üzerinden komutla açtırdıpım yeni forma değeri boş görüyor yeni açılan forma metin kutusu ekleyip ona aradığım zaman görüyor ben her hangi bir atama yapmadan programın tüm forumlarında değişkenin tanınmasını istiyorum bunun için hangi kodu nereye yazmam lazım
1- Yeni bir boş modül oluşturun.
2- Bu modülde "Public gstrUsr As String" şeklinde bir değişken tanımlaması yapın.
3- ilk açılacak formun veya form kontrollerinin herhangi bir olayında bu değişkene değer atayın.
Örneğin:
Private Sub Form_Load()
gstrUsr = "ali"
End Sub
4- Sonradan açılacak formun veya forn kontrollerinin herhangi olayında bu değeri kullanın.
Private Sub Form_Load()
Metin0.value = gstrUsr
End Sub