Passing a Parameter from Word to Excel

[sswong98]

Hello I am trying to pass parameter from Word to Excel, but am stuck. The parameter is the record number of a mail merge. I want to use this record number to dynamically create a chart in Excel. Below is some of the code I started:

In Word:

Public Function test1() As Integer
Dim gintRecordNumber As Integer
If Documents("MailMergeTest.doc").MailMerge.State = _
wdMainAndDataSource Or _
wdMainAndSourceAndHeader Then
intRecordNumber = Documents("MailMergeTest.doc").MailMerge _
.DataSource.ActiveRecord
End If

'test1 = intRecordNumber
'MsgBox intRecordNumber
End Function

In Excel:

Sub MailMergeCounter()
'Dim intRecordNumber As Integer
Dim WordApp As Object
Worksheets("Current Data 2007").Range("Y5").Value = gintRecordNumber
MsgBox test1
End Sub