Hi Thiaga,
like this, and there is a lot more to it.
It isn't half of the truth!
read this first.
http://word.mvps.org/faqs/interdev/ControlXLFromWord.htm
Sub Macro21()
Dim l As Long
' create an array and fill it
Dim sArr(1 To 10) As String
For l = 1 To 10
sArr(l) = Format(l, "00")
Debug.Print sArr(l)
Next
Dim oExl As Excel.Application
Set oExl = New Excel.Application
oExl.Visible = True
' create a new workbook
With oExl.Workbooks.Add
' fill excel-cells with the values from your array
For l = 1 To 10
oExl.ActiveWorkbook.ActiveSheet.Cells(l, 1).Value = sArr(l)
Next
End With
End Sub
--
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"