excelden word sayfasına veri aktarımı

[gezgin-49]

arkadaşlar ekte gönderdiğim dosyanın karar sayfasını word sayfasına aktarmak istiyorum, daha önce bağ yapıştır yöntemini denedim ama bu konu hakkında pek bilgi sahibi olmadığım için tam istediğim sonucu alamadım, bu nedenle siz üstadlarımdan yardım istiyorum, excel sayfasında değişen tüm verilerin word sayfasına yansıması gerekiyor, bu konuda acil yardımlarınızı bekliyorum, hepinize saygılar sunuyorum.

 

[Levent Menteşoğlu]

Aşağıdaki linkleri inceleyin.

http://www.excel.web.tr/showthread.php?t=28932&highlight=word

http://www.excel.web.tr/showthread.php?t=23073

 

[gezgin-49]

Sayın üstadım leventm ilginiz için çok teşekkür ediyorum, ama benim istediğim bu değildi, zira aşağıda bazı kodlar var bu kodlardan yola çıkarak excel "karar" sayfasındaki verileri word sayfasına aynen aktarmak mümkünmü?
Sub WordDosyasi()
Dim WordSayfasi As Object
Set WordSayfasi = CreateObject("Word.Application")

WordSayfasi.Visible = True
With WordSayfasi.Documents.Add
For i = 1 To 100
.Content.InsertAfter Workbooks("Örnek-1.XLS")._
Worksheets("Karar").Cells(i, 1).Value
.Content.InsertParagraphAfter
Next i
çSaveAs ("C:\Documents and Settings\yakup-nisa\Belgelerim\YeniWord.Doc")
End With
WordSayfasi.Quit
End Sub