Dosya adına geçerli tarihle Word belgesi nasıl kaydedilir?

Bir Word belgesini kaydederken dosya adına geçerli tarihi otomatik olarak eklemeniz gerekiyorsa, bu görevi Word dosyasında nasıl gerçekleştirebilirsiniz?

Geçerli tarihle bir Word belgesini VBA kodu ile dosya adına kaydedin

---

Geçerli tarihle bir Word belgesini VBA kodu ile dosya adına kaydedin

Word belgesini kaydederken geçerli tarihi dosya adına otomatik olarak eklemek için lütfen aşağıdaki adımları izleyin:

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. Ve sonra tıklayın Ekle > modül, aşağıdaki kodu kopyalayıp açılan boş modüle yapıştırın:

VBA kodu: Dosya adına geçerli tarihle bir Word belgesini kaydedin

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 F5 bu kodu çalıştırmak için anahtar ve bir Farklı Kaydet penceresi, güncel tarih ile birlikte otomatik olarak dosya adı metin kutusu, ekran görüntüsüne bakın:

4. Ve sonra, ihtiyaç duyduğunuzda kendi dosya adınızı yazmanız yeterlidir, ekran görüntüsüne bakın: