Code xoá file word (2 người xem)

[saomai6692]

Em kính chào các anh chị
Em muốn xin các anh chị code để xóa một file word theo thời gian thì nó sẽ xóa hẳn đi nếu mở nó ra
ví dụ: file đính kèm, nếu ngày 31/12/2014 mà em mở ra thì nó sẽ tự xóa mất hẳn.
Em trân trọng cảm ơn

 

[phạm văn trình]

Khó đấy bạn à, trên diễn đàn có nhiều nhưng chưa đúng ý bạn phải không.
Thông cảm đây là giaiphapexcel cơ mà không phải giaiphapword ?

 

[saomai6692]

Các anh chị giúp em với, em xin code xoá file word theo thời gian định sẵn. Không biết code của file excel chuyển sang có dc ko ạ

 

[Hong.Van]

Các anh chị giúp em với, em xin code xoá file word theo thời gian định sẵn. Không biết code của file excel chuyển sang có dc ko ạ

sao bạn kg thử test!!!!!!!!!!!!!!!!!!!!!!!!!!!

 

[saomai6692]

quanghai1969, giúp em với, em test ko được

 

[saomai6692]

Vẫn chưa anh chị nào giành thời gian giúp em cả, mong quá lại mong thôi.

 

[Quang_Hải]

Vẫn chưa anh chị nào giành thời gian giúp em cả, mong quá lại mong thôi.

File Word tự xóa thì khó, hình như chưa thấy ai viết code cho vụ này. Chắc không ai thích vụ này rồi.
Mình giúp cho đường lối, chính sách. Phần còn lại bạn tự mò mẫm nghen. Nói thật là không hứng thú với mấy vụ password hay tự xóa file.

Tải file về, giải nén ra 1 thư mục. Mở file word lên, chọn Enable Macro

PS: VUI LÒNG ĐỪNG KÊU GIẢI THÍCH HAY VIẾT TIẾP NỮA NHÉ

 

[Kiều Mạnh]

File Word tự xóa thì khó, hình như chưa thấy ai viết code cho vụ này. Chắc không ai thích vụ này rồi.
Mình giúp cho đường lối, chính sách. Phần còn lại bạn tự mò mẫm nghen. Nói thật là không hứng thú với mấy vụ password hay tự xóa file.

Tải file về, giải nén ra 1 thư mục. Mở file word lên, chọn Enable Macro

PS: VUI LÒNG ĐỪNG KÊU GIẢI THÍCH HAY VIẾT TIẾP NỮA NHÉ

vụ này anh viết quá hay

 

[Quang_Hải]

vụ này anh viết quá hay

Có tự xoá được không, cũng là thí nghiệm chơi thôi, chẳng ích gì cả.

 

[Kiều Mạnh]

Có tự xoá được không, cũng là thí nghiệm chơi thôi, chẳng ích gì cả.

em đang suy nghĩ sao nó ko tự Kill chính nó mà phải nhờ Excel

 

[Quang_Hải]

em đang suy nghĩ sao nó ko tự Kill chính nó mà phải nhờ Excel

Vậy khi nào có code nhớ post lên cho anh em tham khảo. Lúc nào rảnh mình cũng thử xem. Giờ chưa mần được.

 

[Quang_Hải]

Tặng chủ thớt và các bạn file word tự tự tử

 

[Kiều Mạnh]

Tặng chủ thớt và các bạn file word tự tự tử

Mở lên lỗi dòng sau anh

Set VBComp = .VBProject.VBComponents.Add(vbext_ct_StdModule)

Thấy sub này cũng hay nè

Sub teee()
MsgBox "Ok", , "KieuManh"
End Sub

 

[Quang_Hải]

Mở lên lỗi dòng sau anh

Set VBComp = .VBProject.VBComponents.Add(vbext_ct_StdModule)

Muốn code chạy được phải vào Tools, tìm và đánh dấu mục Microsoft Visual Basic For Application Extensibility 5.3

 

[Quang_Hải]

Các anh chị giúp em với, em xin code xoá file word theo thời gian định sẵn. Không biết code của file excel chuyển sang có dc ko ạ

Đơn giản nhất là bạn xoá theo kiểu này
Code sẽ xoá trắng file theo ngày ấn định

Private Sub Document_Open()
Dim NgayHetHan As Long
NgayHetHan = 41910
If CLng(Date) >= NgayHetHan Then
   ThisDocument.Select
   Selection.Delete
   ThisDocument.Save
End If
End Sub

 

[saomai6692]

Em cảm ơn các anh chị, cũng không đơn giản chút nào phải không ạ, các anh chị cũng đã mất nhiều thời gian để cho mọi người được học hỏi.
Em nghĩ code #15 rất hay và đơn giản, nhưng nếu nó mà xoá được file như Killfile bên Excell thì tuyệt vời. Cảm ơn quanghai1969 nhé