Hi Judy,

see:
http://word.mvps.org/faqs/interdev/c...wordfromxl.htm
http://word.mvps.org/faqs/interdev/E...ateBinding.htm

plus have a look at this one:

Private Sub Test0000()
Dim oWrd As Word.Application
Dim oDcm As Word.Document
Dim fntName As String

fntName = activecell.Font.Name

On Error Resume Next
Set oWrd = GetObject(, "Word.application")
If Err Then
Set oWrd = New Word.Application
End If
oWrd.Visible = True
Set oDcm = oWrd.Documents.Add
oDcm.Range.InsertBefore "abcdefghi" & Chr(13)
oDcm.Range.Paragraphs(1).Range.Font.Name = "Arial"
' ....... some more

End Sub

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"