Yesuslave,
I've taken your code and combined it with the stuff i've already made and have come up with this:
Private Sub Document_Close()
Dim StrngTxt As String
Dim StrngTxt1 As String
Dim response As Boolean
Dim response1 As Boolean
Dim varData(112) As Variant
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim xlWS As Excel.Worksheet
varData(0) = ActiveDocument.FormFields("Text10"

.Result
varData(1) = ActiveDocument.FormFields("Text7"

.Result
varData(2) = ActiveDocument.FormFields("Text22"

.Result
varData(3) = ActiveDocument.FormFields("Text12"

.Result
varData(4) = ActiveDocument.FormFields("Text24"

.Result
varData(5) = ActiveDocument.FormFields("Text7"

.Result
varData(6) = ActiveDocument.FormFields("Text6"

.Result
varData(7) = ActiveDocument.FormFields("Text8"

.Result
varData(8) = ActiveDocument.FormFields("Text7"

.Result
varData(9) = ActiveDocument.FormFields("Text10"

.Result
varData(10) = ActiveDocument.FormFields("Text7"

.Result
varData(11) = ActiveDocument.FormFields("Text7"

.Result
varData(12) = ActiveDocument.FormFields("Text7"

.Result
Set xlApp = CreateObject("Excel.application"

xlApp.Visible = True
Set xlWB = xlApp.workbooks.Open("C:\Referral Tracking 2003.xls"

Set xlWS = xlWB.worksheets(1)
With xlWS
.Cells(2, 1).Select
Do Until xlApp.ActiveCell.Text = ""
ActiveCell.Offset(1, 0).Select
Loop
End With
xlApp.ActiveCell.FormulaR1C1 = varData(0)
xlApp.ActiveCell.Offset(0, 1).FormulaR1C1 = varData(1)
xlApp.ActiveCell.Offset(0, 2).FormulaR1C1 = varData(2)
xlApp.ActiveCell.Offset(0, 3).FormulaR1C1 = varData(3)
xlApp.ActiveCell.Offset(0, 4).FormulaR1C1 = varData(4)
xlApp.ActiveCell.Offset(0, 5).FormulaR1C1 = varData(5)
xlApp.ActiveCell.Offset(0, 6).FormulaR1C1 = varData(6)
xlApp.ActiveCell.Offset(0, 7).FormulaR1C1 = varData(7)
xlApp.ActiveCell.Offset(0, 8).FormulaR1C1 = varData(8)
xlApp.ActiveCell.Offset(0, 9).FormulaR1C1 = varData(9)
xlApp.ActiveCell.Offset(0, 10).FormulaR1C1 = varData(10)
xlApp.ActiveCell.Offset(0, 11).FormulaR1C1 = varData(11)
StrngTxt = ActiveDocument.FormFields("Text12"

.Result
response1 = MsgBox("Would you like to save this record", vbYesNo, "Save Record"

ActiveDocument.SaveAs ("C:\referral" & StrngTxt & ".doc"

stringTxt1 = InputBox("If you would like to send this form please Enter E-mail here and click OK, otherwise click on cancel", "E - Mail"

response = MsgBox("Would You Like to Print This Document", vbYesNo, "Print"
End Sub
However, it seems a bit bulky for what it's doing, is there a way of scrolling through the array and simply inserting the value into the next offcet(0,1) cell??