title: mail merge excel vba
body: <p>I have my excel data sheet and my word document as per link below</p>
  
  <p><a href="https://www.dropbox.com/s/my62tw9jsf...32018.xls?dl=0" rel="nofollow noreferrer">https://www.dropbox.com/s/my62tw9jsf...32018.xls?dl=0</a></p>
  
  <p><a href="https://www.dropbox.com/s/h5wb91ymd3...flo1.docx?dl=0" rel="nofollow noreferrer">https://www.dropbox.com/s/h5wb91ymd3...flo1.docx?dl=0</a></p>
  
  <p>My word document is already configured with the merge fields layout. I have tried mail merge to word but unfortunately the Word application becomes "not responding" each time I try mail merge.</p>
  
  <p>Here it is the recorded macro:</p>
  
  <pre><code>Sub Macro1()
  '
  ' Macro1 Macro
  '
  '
      ActiveDocument.MailMerge.OpenDataSource Name:= _
          "C:\Users\[userName]\Desktop\New folder (18)\fixedcharge16032018.xls", _
          ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
          AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
          WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
          Format:=wdOpenFormatAuto, Connection:= _
          "Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=C:\Users\[UserName]\Desktop\New folder (18)\fixedcharge16032018.xls;Mode=Read;Extended Properties=""HDR=YES;IMEX=1;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Engine Type=35;Je" _
          , SQLStatement:="SELECT * FROM `Sheet1$`", SQLStatement1:="", SubType:= _
          wdMergeSubTypeAccess
  End Sub
  </code></pre>