Excel uygulamasında Word uygulamasına ister hücreyi referans göstererek, ister kodun içerisine yazarak yazı yazdırabilirsiniz.

Kodu çalıştırmadan önce Referans tablosundan Word kütüphanesini aktif etmelisiniz.

KOD


Private Sub MSWord_Yazi_Yolla()
On Error GoTo hata
Dim appWordp As Word.Application
Dim sayfam As Word.Document
Dim hucrem As Word.Range
Set appWordp = New Word.Application
With appWordp
.Visible = True
.WindowState = wdWindowStateMaximize
End With
Set sayfam = appWordp.Documents.Add
Set hucrem = sayfam.Words(1)
With hucrem
.Text = Range("F6") & "Bu satır Excel uygulamasından gönderildi." & vbNewLine & _
"http://www.ExcelVBA.Net/forum"
.Font.Name = "Comic Sans MS"
.Font.Size = 12
.Font.ColorIndex = wdGreen
.Bold = True
End With
hata:
Set appWordp = Nothing
Set sayfam = Nothing
Set hucrem = Nothing
End Sub


alıntıdır...
(Kaynak:excelvba.net)