Exceldeki bir kodu word'e uyarlama ?

[Gorarr]

Selamlar, biliyorum forumumuzda "word" kelimesinden nefret ediyoruz ama bana onunla ilgili bir yardım gerek.

Sub autpen()
Application.OnTime Now + TimeValue("00:01:00"), "sill"
End Sub

Sub sill()
If Date >= CDate("20.06.2011") Then
With ThisWorkbook
.Save
.ChangeFileAccess Mode:=xlReadOnly
Kill .FullName
.Close SaveChanges:=False
End With
End If
End Sub

Bu kodları bir hocamız "excel" zamanlı silinmesi için yazmıştı. Kendisine tekrar teşekkürlerimi sunuyorum. Ben bu kodları "word" dosyasında "modül" içerisinde denedim ama aynı sonucu alamadım. Yardımcı olabilirseniz çok sevinirim. Olmazsada sağlık olsun. Yaşasın "excel", kahrosul "word"

 

[leumruk]

Merhaba,
Sanırım istediğiniz belirli bir süre sonra dosyanın kendini imha etmesi. Eklediğiniz excel koduyla birebir aynı olmasa da word için alternatif bir yöntem geliştirdim.
Çalışma mantığı şöyle: Dosyayı açtığınızda süre makrosu devreye giriyor. Süre dolduğunda word dosyasının içindeki verileri silip kaydediyor. Ardından Farklı kaydet yöntemiyle dosya C: altına "Silindi" adıyla kaydediliyor. Kaydetme işleminden sonra makronun çalıştığı dosya bu silindi dosyası tarafından siliniyor. Diğerinden farkı: Elimizde C: altında içi boş atık bir word dosyası kalıyor.

Sub autoOpen()
If Date >= CDate("20.06.2011") Then
Application.OnTime Now + TimeValue("00:01:00"), "Dosya_İmha"
End If
End Sub

Sub Dosya_İmha()
Selection.WholeStory
Selection.Delete
ActiveDocument.Save
Dosya_Adi = ActiveDocument.FullName
Uzanti = Split(ActiveDocument.Name, ".")
Uzanti = "." & Uzanti(UBound(Uzanti))
ActiveDocument.SaveAs FileName:="C:\Silindi" & Uzanti
Set Dsy = CreateObject("Scripting.FileSystemObject")
Dsy.DeleteFile (Dosya_Adi), True
ActiveDocument.Application.Quit
End Sub

 

[Gorarr]

Hocam ellerinize sağlık. C ye kaydetme ile ilgili hata veriyor ama asıl dosya içeriğini başarılı bir şekilde siliyor. Ancak şöyle bir durum var. makrolar aktif değilse dosya içeriği görülüyor. Birde belli bir tarih geçildiyse silinmesini sağlayacak aşağıdaki gibi bir kodu kullanamazmıyız.

If Date >= CDate("20.06.2011") Then

Yardımlarınız için tekrardan teşekkürler.

 

[leumruk]

Tarih için autoopen kodunu güncelledim. Makro etkin olmadığı zaman sayfada işlem olmaması normal; çünkü işlem makro kodlarıyla gerçekleşiyor. Exceldeki gibi sayfa gizleme yöntemi maalesef word dosyalarında yok.

 

[Gorarr]

Hocam ellerinize sağlık, çok teşekkür ederim.