VBA kodu ile Word belgesini dosya adına geçerli tarihi ekleyerek kaydetme
Word belgesini kaydederken dosya adına geçerli tarihi otomatik olarak eklemek için lütfen aşağıdaki adımları izleyin:
1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basılı tutun.
2. Ardından, Ekle > Modül seçeneğine tıklayın ve aşağıda verilen kodu açılan boş modüle kopyalayıp yapıştırın:
VBA kodu: Word belgesini dosya adına geçerli tarihi ekleyerek kaydetme
Public Sub FileSave1()
Dim xDlg As Dialog
Dim xTitle As String
On Error Resume Next
xTitle = ActiveDocument.BuiltInDocumentProperties("Title").Value
xTitle = xTitle & " " & Format((Year(Now() + 1) Mod 100), "20##") & "-" & _
Format((Month(Now() + 1) Mod 100), "0#") & "-" & _
Format((Day(Now()) Mod 100), "0#")
Set xDlg = Dialogs(wdDialogFileSaveAs)
xDlg.Name = xTitle
xDlg.Show
End Sub
3. Kodu modüle yapıştırdıktan sonra çalıştırmak için F5 tuşuna basın; ardından geçerli tarih otomatik olarak Dosya adı metin kutusuna eklenmiş şekilde Farklı Kaydet penceresi görüntülenir; ekran görüntüsüne bakın:
4. Ardından, ihtiyacınıza göre kendi dosya adınızı yazmanız yeterlidir—ekran görüntüsüne bakın:
Yapay Zeka ile Güçlendirilmiş Kutools for Word ile Daha Az Zamanda Daha Fazlasını Yapın
Kutools for Word, sadece bir dizi araç değil; üretkenliğinizi artırması için akıllıca tasarlanmış kapsamlı bir çözümdür. Yapay zeka destekli yetenekleri ve temel özelliklerini bir araya getirerek Kutools, daha az zamanda daha fazlasını başarmanıza olanak tanır:
İçeriği anında özetleyin, yeniden yazın, oluşturun ve çevirin.
Yazarken dil bilgisi, noktalama ve üslup önerileriyle metninizi gerçek zamanlı olarak gözden geçirin.
İçeriği, düzenini, stilini ve yapısını bozmadan yeniden ifade edin ve çevirin.
İçeriğinizi 40’tan fazla dile kolayca çevirerek küresel erişiminizi genişletin.
Geçerli belge içeriğinize dayanarak anında yardım alın ve zeki içgörüler elde edin.
Bir görevi – örneğin Bölüm Sonu kaldırma gibi – nasıl tamamlayacağınızı sorun, yapay zeka size rehberlik eder veya bunu sizin için halleder.
Hassas veya gizli bilgileri saniyeler içinde redakte edip tam gizlilik sağlayın.
Tüm araçlar Word’de sorunsuzca çalışır ve her an kolayca erişebileceğiniz yerdedir.
Belgelerinizi zahmetsizce oluşturun, iyileştirin, çevirin, özetleyin ve güvence altına alın.
Yazarken dil bilgisini, açıklığı ve tonu gerçek zamanlı olarak geliştirin.
İçeriği, düzen veya biçimlendirmede hiçbir değişiklik yapmadan yeniden ifade edin ve çevirin.
Bir görevi – örneğin Bölüm Sonu kaldırmayı – nasıl tamamlayacağınızı sorun, yapay zeka size rehberlik eder veya bunu sizin yerinize gerçekleştirir.
Tüm araçlar Word içinde sorunsuzca çalışır ve her zaman kolay erişimdedir.
🌍40+ Dil Desteği: Kutools’u istediğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve 40’tan fazla başka dil dahil olmak üzere kapsamlı dil desteği sunuyor!
