Kodu, Açılan Bütün Dökümanda Çalıştırmak

[Seyit Tiken]

S.A
Arkadaşlar, Ofis-2010 sürümünde bir kodu, açılan bütün Word belgelerinde nasıl kullanabiliriz?, bayağı uğraşmama rağmen bir türlü yapamadım, Ofis-2000'de bir sorun yoktu, kullanabiliyordum, ama Ofis-2010 sürümünde bir türlü kodu çalıştıramadım.

Kullandığım Kod Şu :

Sub Kaydetme_Çık()
On Error Resume Next
ActiveDocument.Close
Application.Quit
End Sub

Bu kodu açılan bütün Word Belgelerinde kullanmak istiyorum. Yardımlarınız için şimdiden teşekkür ediyorum.

 

[serqet]

S.A
Arkadaşlar, Ofis-2010 sürümünde bir kodu, açılan bütün Word belgelerinde nasıl kullanabiliriz?, bayağı uğraşmama rağmen bir türlü yapamadım, Ofis-2000'de bir sorun yoktu, kullanabiliyordum, ama Ofis-2010 sürümünde bir türlü kodu çalıştıramadım.

Kullandığım Kod Şu :

Sub Kaydetme_Çık()
On Error Resume Next
ActiveDocument.Close
Application.Quit
End Sub

Bu kodu açılan bütün Word Belgelerinde kullanmak istiyorum. Yardımlarınız için şimdiden teşekkür ediyorum.

Bu işinizi görür sanırım üstadım.

Sub CloseAll()
With Application
.ScreenUpdating = False

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

 

[necati]

Merhaba Seyit Tiken,
Ben 2007 de denedim bir problem çıkmadı.
Makronuz normal.dot şablonunda kayıtlı ise ve makro yeri olarak özel bir belge adı belirtmediyseniz sizde de tüm dökümanlarda çalışır.

 

[Seyit Tiken]

Arkadaşlar verdiğiniz yanıtlar için çook teşekkür ediyorum, işlem tamam.