worde aktarımda tarih sorunu

[haruncelebi1]

listboxdan worde aktardığım metin içinde =bugün() olarak oluşturduğum tarih var. tarih modunda aktarım yapamıyorum 11/02/2005verisi wordde 38394 oluyor? tşk.

makro şöyle

Private Sub CommandButton1_Click()
Set word = CreateObject("Word.Application")
word.Documents.Add
word.Visible = True
For a = 0 To ListBox1.ListCount - 1
word.Selection.TypeText Text:=" " & ListBox1.List(a, 0) & " " & ListBox1.List(a, 1) & " " & ListBox1.List(a, 2)
word.Selection.TypeParagraph
Next
End Sub

 

[Seyit Tiken]

Kodların ne tür bir işlem yapıldığı çıkaramadım. İki uygulama arasında Bağ Yapıştırma'yı bir deneyin.