Word içerisine tarih eklemek

[machool]

Merhaba

Word formatında bir sertifika belgem var. Her seferinde sertifika tarihini manuel olarak güncelliyorum. Ekle/tarih yaparak günün tarihini ekleyebiliyorum ama ben bir önceki günün (DÜN) veya sonraki günün tarihini (YARIN) eklemek istiyorum. Bunu formül ekleyerek yapabilirim sanırım ama nasıl ? Şimdiden teşekkürler....

 

[YUSUF44]

Şu anda deneyemiyorum. Şöyle olur belki:

Eklediğiniz tarihe sağ tıklayıp "alan kodları arasında geçiş yap" deyin. Açılan kodun sonuna (ya da kod yapısına göre uygun yerine) -1 yazın. Tekrar alan kodları arasında geçiş yap deyin. Hata vermezse ama düzelmemişse sağ tıklayıp güncelle deyin.

 

[machool]

Şu anda deneyemiyorum. Şöyle olur belki:

Eklediğiniz tarihe sağ tıklayıp "alan kodları arasında geçiş yap" deyin. Açılan kodun sonuna (ya da kod yapısına göre uygun yerine) -1 yazın. Tekrar alan kodları arasında geçiş yap deyin. Hata vermezse ama düzelmemişse sağ tıklayıp güncelle deyin.

Daha öncesinde denedim ama +1 veya -1 nereye konulacak hiçbir fikrim yok.

{TIME \@ "d/MM/yyyy"} bu formatta bir formülasyon mevcut. Şimdiden teşekkürler...

 

[YUSUF44]

Şimdi aşağıdaki gibi denedim ama olmadı maalesef:

TIME - 1 \@ "dd.MM.yyyy"

 

[necati]

Merhaba,
Wordde ileri veya geçmiş tarihi alan ekle ile yapmakta sıkıntı var. Bunun kolay bir yöntemi makro ile yer imi eklemek şeklinde olabilir. Belgede bir yer imi eklenir ve otomatik olarak açılışta çalışan bir kod ile ileri veya geçmiş tarihi elde edebiliriz. Aşağıdaki kod iki gün/ay/yıl öncesi için örnektir.

Private Sub Document_Open()
'Tarihi arttır/eksilt. Önce yerimi ekle adı "T1" olsun. ThisDocument koduna yazılacak.
Dim TarihRng As Range

If ActiveDocument.Bookmarks.Exists("T1") = True Then
    Set TarihRng = ActiveDocument.Bookmarks("T1").Range
    'Gün
    TarihRng.Text = Format((Date - 2), "d MMMM yyyy")
    'Ay
    'TarihRng.Text = Format(DateAdd("M", -2, Date), "d MMMM yyyy")
    'Yıl
    'TarihRng.Text = Format(DateAdd("yyyy", -2, Date), "d MMMM yyyy")
Else

MsgBox "Tarih girilecek yere tarihi 19 Eylül 2022 formatında yazın" & vbLf & _
"Yazdığınız seçili halde iken ismi T1 olan yer imini kaydedin" & vbLf & _
"Tarih formatını değiştirirseniz, makro içinden de değiştiriniz."

Exit Sub
End If
    TarihRng.Bookmarks.Add Name:="T1", Range:=TarihRng
    Set TarihRng = Nothing
End Sub

 

[YUSUF44]

Aşağıdaki linkte bir makro ya da eklenti paylaşılmış:

How to Insert a Future or Past Date in Your Word Document via VBA Codes

In this article, we will show you an interesting trick to insert a future or past date in your Word Document via VBA codes.

www.datanumen.com

İnternette aşağıdaki gibi başka çözümler de gördüm ama uygulayamadım maalesef:

Calculated Dates in Microsoft Word using Fields or vba - Frequently Asked Questions (FAQ) Answered

Calculated dates using Microsoft Word from FAQ (frequently asked questions) about Word compiled from the Microsoft Word newsgroups.

addbalance.com

 

[tukayf]

Eski konularımda vardı bunun çözümü vaktim olduğunda paylaşayım ya da siz word le ilgili konulardan bulabilirseniz inceleyin bi.

 

[neresionline]

Merhaba

Word formatında bir sertifika belgem var. Her seferinde sertifika tarihini manuel olarak güncelliyorum. Ekle/tarih yaparak günün tarihini ekleyebiliyorum ama ben bir önceki günün (DÜN) veya sonraki günün tarihini (YARIN) eklemek istiyorum. Bunu formül ekleyerek yapabilirim sanırım ama nasıl ? Şimdiden teşekkürler....

 

[muratgunay48]

Merhaba,
Wordde ileri veya geçmiş tarihi alan ekle ile yapmakta sıkıntı var. Bunun kolay bir yöntemi makro ile yer imi eklemek şeklinde olabilir. Belgede bir yer imi eklenir ve otomatik olarak açılışta çalışan bir kod ile ileri veya geçmiş tarihi elde edebiliriz. Aşağıdaki kod iki gün/ay/yıl öncesi için örnektir.

Private Sub Document_Open()
'Tarihi arttır/eksilt. Önce yerimi ekle adı "T1" olsun. ThisDocument koduna yazılacak.
Dim TarihRng As Range

If ActiveDocument.Bookmarks.Exists("T1") = True Then
    Set TarihRng = ActiveDocument.Bookmarks("T1").Range
    'Gün
    TarihRng.Text = Format((Date - 2), "d MMMM yyyy")
    'Ay
    'TarihRng.Text = Format(DateAdd("M", -2, Date), "d MMMM yyyy")
    'Yıl
    'TarihRng.Text = Format(DateAdd("yyyy", -2, Date), "d MMMM yyyy")
Else

MsgBox "Tarih girilecek yere tarihi 19 Eylül 2022 formatında yazın" & vbLf & _
"Yazdığınız seçili halde iken ismi T1 olan yer imini kaydedin" & vbLf & _
"Tarih formatını değiştirirseniz, makro içinden de değiştiriniz."

Exit Sub
End If
    TarihRng.Bookmarks.Add Name:="T1", Range:=TarihRng
    Set TarihRng = Nothing
End Sub

Hocam muhteşem diyorum, başka da bir şey demiyorum. Emeğimize sağlık.