sswong98
10-17-2007, 04:22 PM
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
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