otomatik tarih

[mozdem]

Microsoft Office Word 2003 te, ekteki dosyada daha açıklamalı güründüğü gibi otomatik olarak yarınki tarih yazdırmak

 

[uzmanamele]

merhaba

buraya bakınız.
http://www.excel.web.tr/f51/lynk-ile-ilgili-bir-soru-t74869.html

 

[mozdem]

Hocam malesef verdiğiniz linkte benim istediğim ile ilgil bir şey bulamadım. Farklı şeylerden söz ediliyor.

Benim istediğim Excelde Bir hücreye =Bugün()+1 yazsak yarınki tarihi verir. Word de Shift+Alt+ D yaptığımda Bugünkü tarihi atıyor. Ve her açtığımda güncelliyor. İstediğim Wordde yarınki tarihi nasıl yazdırabilirim. Yada worde yazılan bir tarih ile bir sayıyı yine word sayfasında toplayabilirmiyim.

 

[tukayf]

excel çalışma sayfası ekleyin diyeceğim ama o nu da satıra hizalaması zor. ya da kolayını ben bilmiyorum yardımcı olamıyoruz k. bakmayın.
sanki görev listesi hazırlıyor gibi haliniz va

 

[hamitcan]

Değerli üstad Haluk bey'den, öğrendiğim kodları sizin dosyanıza uyguladım.
Module içine,

Dim X As New Class1
Sub Register_Event_Handler()
    Set X.App = Word.Application
End Sub
Sub test()
With ActiveDocument
 SonrakiGun = DateSerial(Year(Date), Month(Date), Day(.Fields(1).Result) + 1)
.Unprotect
.Fields(3).Result.Text = SonrakiGun
.Tables(1).Cell(1, 1).Range.Text = SonrakiGun
.Protect wdAllowOnlyReading
End With
End Sub

Class içine,

Public WithEvents App As Word.Application

Private Sub App_WindowSelectionChange(ByVal Sel As Selection)
    test
End Sub

ThisDocument içine,

Private Sub Document_Open()
    Call Register_Event_Handler
    Call test
End Sub

bu kodları yerleştirin. Kod dosya açıldığında ve dosyada içinde bir değişiklik olduğunda çalışacaktır.

 

[mozdem]

Teşekkür ederim

Sayın hamitcan cevabınız için çok teşekkür ederim.