Sub Макрос8()
'
' Макрос8 Макрос
' Макрос записан 24.07.2009 forum
'
    ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        "exceldatasource.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=exceldatasource.xls;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Pass" _
        , SQLStatement:="SELECT * FROM `Лист1$`", SQLStatement1:="", SubType:= _
        wdMergeSubTypeAccess
End Sub

Sub dd()
    MsgBox ActiveDocument.MailMerge.DataSource.RecordCount
End Sub