kapalı word dosyalarında alt bilgi kısmında tarih ekleme

[1903emre34@gmail.com]

Merhaba arkadaşlar

kapalı Word alt bilgi kısmında tarih eklemek istiyorum

ADI VE SOYADI :
MESLEK :
TARİH :


ADI VE SOYADI :
UNVANI :
TARİH


şöyle bir kod buldum işe yaramadı

Sub WD_Altbilgi()
bilgi = Application.InputBox("Altbilgi için veri girişi yapınız.", "ALTBİLGİ")
If bilgi = False Then Exit Sub

Set WD = CreateObject("word.Application")
WD.Visible = True

yol = ThisWorkbook.Path
Dosya = Dir(yol & "\*doc*")
Do While Dosya <> ""
WD.Application.Documents.Open yol & "\" & Dosya

WD.ActiveWindow.ActivePane.View.SeekView = 10
WD.ActiveDocument.PageSetup.DifferentFirstPageHeaderFooter = True
WD.Selection.WholeStory
WD.Selection.TypeText Text:=bilgi
WD.ActiveWindow.ActivePane.View.SeekView = 0

WD.ActiveDocument.Close True
Dosya = Dir
Loop

WD.Application.Quit
MsgBox "İşlem tamamlanmıştır.", vbInformation, "l e u m r u k"
End Sub

ilgilenen arkadaşlara teşekkürler

 

[1903emre34@gmail.com]

arkadaşlar örnek dosya ekliyorum

 

[1903emre34@gmail.com]

konu güncel

 

[Ömer BARAN]

Merhaba.

Kod'da pek sorun yoktu, belgeye uyguladım.
Sanırım istediğiniz böyle bir şey.
.

 

[1903emre34@gmail.com]

hocam ilgilendiğiniz için teşekkürler kod çalışıyor ama çalıştırdığı zaman eski yazıları kaldırıyor yeni yazısı getiriyor ekte dosya ekledim. sadece benim istediğim tarih bölümüne herhangi bir tarih yazısı getirecek şekilde makro vb düzenlenmesi

 

[1903emre34@gmail.com]

dosya ekte gibidir.

 

[1903emre34@gmail.com]

dosya yükleme sorun vardı şimdi yükledim

 

[Ömer BARAN]

Merhaba.

Yeni belge ekte.
.

 

[1903emre34@gmail.com]

teşekkürler