Wordde açık belgeleri kişisel makro ile topluca kapatmak

[erkan1903]

Merhaba,
Kişisel makro ile açık olan tüm word belgelerini topluca kapatabilmek istiyorum.
Excelde olan kodu denedim ama başarı olamadım. Aşağıda excelde yapılabilen link var. Acaba bunu worde uyarlayabilirmiyiz?
Kolay gelsin
http://www.excel.web.tr/f50/acyk-olan-tum-excelleri-kapatma-t162319/sayfa3.html#post900397

 

[Asri]

Tüm word dosyalarını kaydetmeden kapatır.

normal.dot bölümündeki module kopyalayın ve kaydedin.

Word açık kalsın ama tüm belgeler kapansın derseniz.
.Quit SaveChanges:=wdDoNotSaveChanges bu satırın başına ' ekleyin.

Sub CloseAll()
    With Application
        .ScreenUpdating = False
        Do Until .Documents.Count = 0
            .Documents(1).Close SaveChanges:=wdDoNotSaveChanges
        Loop
        .Quit SaveChanges:=wdDoNotSaveChanges
    End With
End Sub

 

[erkan1903]

Asri Ustam,
Ellerine emeğine sağlık. Teşekkürler.

 

[erkan1903]

Ek Bilgi :
wdDoNotSaveChanges -------> Kaydetmeden Kapat
wdSaveChanges --------------> Kaydederek Kapat
wdPromptToSaveChanges ---> Kapatmadan önce Kayıt için sor

 

[Asri]

Ek Bilgi :
wdDoNotSaveChanges -------> Kaydetmeden Kapat
wdSaveChanges --------------> Kaydederek Kapat
wdPromptToSaveChanges ---> Kapatmadan önce Kayıt için sor

Ek bilgi için teşekkür. Not aldım.