word sayfasını arşive yedekleme

[Yüksel Varlı]

Merhaba,
Ekteki dökümanı D:Arşiv klasörüne Konusu itibariyle yedeklemek istiyorum. Yani D: Arşiv klasörüne konu adıyla kaydedilecek. Ancak word makroları hakkında hiç bilgim yok. Makro Kaydet ile birşeyler yaptım. Ancak farklı kaydedebildim.
Selamlar

 

[hamitcan]

Aşağıdaki şekilde dener misiniz?

Sub farklikaydet()
With ActiveDocument
.SaveAs FileName:="D:\" & .Fields(4).Result
End With
End Sub

 

[Yüksel Varlı]

Sevgili Hamitcan,
2 dakika önce yazdıklarımı geri alıyorum. Makro çalışıyor. Ben dosyaya sizin kodları yerleştirdikten sonra makro güvenliğini "orta" hale getirmemiştim. Dolayısıyla belgeyi alakasız uzantıyla ve adla kaydetti. şimdi durum netleşti.
İlgileriniz için teşekkür ederim.

 

[Yüksel Varlı]

Sn. Hamitcan,
Field sayısını değiştirince dosya biçimini ve adını farklı kaydediyor. (değiştirdiğim mesajdaki olaylar İlk denememde de olmuştu bu. Alan sayısını neye göre belirlediniz merak ettim?
Açıklamak zor ama örnekteki dosyayı denerseniz ne demek istediğimi anlarsınız.
Saygılarımla

 

[hamitcan]

Amacınız, dosya ismini "dosya ismi+tarih" olarak belirlemek ise kodu doğru yazmışsınız. Alanlar sırayla gitmekte.Deneyerek bulabilirsiniz.

MsgBox ActiveDocument.Fields(3).Result

 

[Yüksel Varlı]

Peki dosyanın uzantısı Word olmadığı halde (2007 dosyası) word sayfası gibi açılıyor hocam buna ne dersiniz?

 

[hamitcan]

Farklı bir sorundan mı bahsediyorsunuz, tam olarak anlamadım? Farklı isimde kaydettiğinizde Word dosyası olarak algılamıyor mu?

 

[Yüksel Varlı]

Hayır, aslında sorun da sayılmaz. Ama dosya adına tarih alanı da eklediğim zaman yani kodları
.SaveAs FileName:="D:\" & .Fields(4).Result &.Fields(3).Result
şeklinde yazdığım zaman dosyayı .doc uzantılı değil de "2oo7 dosyası" türünde kaydediyor. Sorun sayılmaz çünkü kaydedilen dosyayı açtığımız zaman Word ile açıyor. ;-)
selamlar

 

[Yüksel Varlı]

Durup durup iş çıkarıyoruz arkadaşlar kusura bakmayın artık...
şöyle bir kod yazdım. Yarı excel, yarı Word oldu ama çalışmadı.

Private Sub CommandButton1_Click()
With ActiveDocument
.SaveAs FileName:="D:\ARŞİV\" & .Fields(4).Result
a = MsgBox(" Evrak Arşive Kaydedildi. Sayfayı Yazdırmak istiyor musunuz?", vbOKCancel, "SAYFA YADIRMA ONAYI")
If a = 6 Then
ActiveDocument.PrintOut From:=1, To:=1, Copies:=2, Collate:=True
End If
End With

End Sub

Yanlış olan nedir acaba???
Selamlar

 

[hamitcan]

Aşağıdaki şekilde deneyin.

Private Sub CommandButton1_Click()
With ActiveDocument
.SaveAs FileName:="d:\" & .Fields(4).Result
a = MsgBox(" Evrak Arşive Kaydedildi. Sayfayı Yazdırmak istiyor musunuz?", vbOKCancel, "SAYFA YADIRMA ONAYI")
If a = vbOK Then
.PrintOut , From:="1", To:="1" , Copies:=2, Collate:=True
End If
End With
End Sub

 

[Yüksel Varlı]

.PrintOut From:=1, To:=1, Copies:=2, Collate:=True

satırında hata veriyor.

 

[Yüksel Varlı]

Sıkıldınız mı arkadaşlar? ;-)

 

[hamitcan]

Kodu güncelledim.

 

[Yüksel Varlı]

Sayın Hamitcan,
sizden bir süre cevap alamayınca deneme yanılma yöntemiyle birşeyler yapmaya çalıştım. Koddan

From:=1, To:=1,

bölümünü çıkarınca yazdırma işlemini yapıyor.
İlgilendiğiniz ve sabrınız için çok teşekkür ederim.
Saygılarımla

 

[hamitcan]

Sayın Yüksel Varlı, 13 nolu mesajımda 10 nolu mesajımdaki kodu güncellediğimi belirtmiştim.