Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Windows-Word-PowerPoint.... (http://www.excel.web.tr/forumdisplay.php?f=51)
-   -   Wordde açık belgeleri kişisel makro ile topluca kapatmak (http://www.excel.web.tr/showthread.php?t=165267)

erkan1903 06-07-2017 11:25

Wordde açık belgeleri kişisel makro ile topluca kapatmak
 
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-ola...tml#post900397

asri 06-07-2017 12:16

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.

Kod:

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 06-07-2017 13:19

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

erkan1903 06-07-2017 13:27

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

asri 06-07-2017 15:50

Alıntı:

erkan1903 tarafından gönderildi (Mesaj 900538)
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.


Saat 03:56

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.