#define wdMergeSubTypeAccess 1 #define wdOpenFormatAuto 0 lcFile = m.dir+"data\labels.xls" lcConnection = [Provider=Microsoft.Jet.OLEDB.4.0;Data Source=]+m.lcFile+[;Extended Properties="HDR=Yes;IMEX=1";] oWord.ActiveDocument.MailMerge.OpenDataSource(m.lcFile,; && Name wdOpenFormatAuto,; && Format .f.,; && ConfirmConversions .f.,; && ReadOnly .t.,; && LinkToSource .f.,; && AddToRecentFiles "",; && PasswordDocument "",; && PasswordTemplate .f.,; && Revert "",; && WritePasswordDocument "",; && WritePasswordTemplate m.lcConnection,; && Connection "SELECT * FROM `Sheet1$`",; &&SQLStatement "",; &&SQLStatement1 .f.,; && OpenExclusive wdMergeSubTypeAccess) && SubType