D
Dorak
In Word, I have a letterhead template that contains a writer's block in table
format. The macro that gets data from an Excel table works fine in Word
2003, but in Word 2007 the merge does not execute. It pulls data only from
the first row of the table.
Could someone advise me as to what might be wrong? Below is my code.
Sub findentry()
'
' findentry Macro
' Macro recorded 8/7/2007 by Admin
'
ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
ActiveDocument.MailMerge.OpenDataSource Name:= _
"N:\Templates\EmployeeData.xls", ConfirmConversions:=False,
ReadOnly:= _
False, LinkToSource:=True, AddToRecentFiles:=False,
PasswordDocument:="", _
PasswordTemplate:="", WritePasswordDocument:="",
WritePasswordTemplate:= _
"", Revert:=False, Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data
Source=N:\Templates\EmployeeData.xls;Mode=Read;Extended
Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet
OLEDB:Registry Path="""";Jet OLEDBatabase Password="""";Jet OLEDB:Engine
Ty" _
, SQLStatement:="SELECT * FROM `AllPersonnel$`", SQLStatement1:="", _
SubType:=wdMergeSubTypeAccess
ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
WordBasic.MailMergeFindEntry
End Sub
format. The macro that gets data from an Excel table works fine in Word
2003, but in Word 2007 the merge does not execute. It pulls data only from
the first row of the table.
Could someone advise me as to what might be wrong? Below is my code.
Sub findentry()
'
' findentry Macro
' Macro recorded 8/7/2007 by Admin
'
ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
ActiveDocument.MailMerge.OpenDataSource Name:= _
"N:\Templates\EmployeeData.xls", ConfirmConversions:=False,
ReadOnly:= _
False, LinkToSource:=True, AddToRecentFiles:=False,
PasswordDocument:="", _
PasswordTemplate:="", WritePasswordDocument:="",
WritePasswordTemplate:= _
"", Revert:=False, Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data
Source=N:\Templates\EmployeeData.xls;Mode=Read;Extended
Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet
OLEDB:Registry Path="""";Jet OLEDBatabase Password="""";Jet OLEDB:Engine
Ty" _
, SQLStatement:="SELECT * FROM `AllPersonnel$`", SQLStatement1:="", _
SubType:=wdMergeSubTypeAccess
ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
WordBasic.MailMergeFindEntry
End Sub