Kod:
Sub Kill_word()
Dim sKillword As String
sKillword = "TASKKILL /F /IM winword.exe"
Shell sKillword, vbHide
End Sub
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.