word içinde bulunan tarihlerin belge adıyla aynı olması

[tukayf]

ekteki dosya içerisinde sarı dolgulu metin kutusu içerisinde bulunan 1, 3 ve 4 nolu yer imlerinde bulunan tarihlerin belge adıyla aynı olmasını ancak 3 nolu yer imi'ndeki tarihin dd/mm/yyyy dddd şeklinde gelmesini istiyorum. 2 nolu yer imi içerisinde bulunan tarihin ise açılacak olan formdan girilecek olan tarih sonrası dd/mm/yyyy ddd şeklinde gelmesini istiyorum.
resmi tatiller dışında her gün düzenlenen bu şablonda dikkatsizlik sonucu tarihler nedeniyle büyük sıkıntı yaşamaktayız. yardımlar için şimdiden teşekkürler.

 

[leumruk]

Merhaba,
Sn. tukayf,
Tarihler neyin sonucunda gelecek. Dosya açıldığında otomatik olarak mı gelecek ya da bir makroyu çalıştırdığınız da mı gelecek?

 

[tukayf]

Dosya ilk açıldığında gelse nasıl olur hocam. Örneğin dosyayı kopyaladık adını değiştirdikten sonra ilk açılışta otomatik gelebilir mi "tarihleri güncelleyin gibi bir uyarı ? Olmadı buton ekleyerek olabilir.

 

[leumruk]

Merhaba,
Kodu kopyalayınız. Dosya açıldığında otomatik çalışır.

Sub autoopen()
Application.ScreenUpdating = False
Ad = Split(ThisDocument.Name, ".doc")(0)
ActiveDocument.Shapes(5).TextFrame.TextRange.Select
Selection.GoTo What:=wdGoToBookmark, Name:="tarih1"
Selection.Text = Ad
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="tarih1"
ActiveDocument.Shapes(1).TextFrame.TextRange.Select
Selection.GoTo What:=wdGoToBookmark, Name:="tarih4"
Selection.Text = Ad
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="tarih4"
Selection.GoTo What:=wdGoToBookmark, Name:="tarih3"
Selection.Text = Format(Ad, "dd.mm.yyyy DDDD")
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="tarih3"
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Application.ScreenUpdating = True
MsgBox "Tarihler dosya adından alındı.", vbInformation, "l e u m r u k"
End Sub

 

[tukayf]

Bundan iyisi can sağlığı zihninize sağlık hocam Allah razı olsun.