Excel - Macro entre word y excel

Sub GENERA_CARTA1()

      Dim word As Object

      Set word = CreateObject("word.basic") 'creates the word object

         With word

            .AppShow ' Makes Word Visible

            'Sends keystrokes to the Open Worksheet dialog box

            SendKeys "{TAB}{TAB}{TAB}{ENTER}"

            'Opens the Microsoft Excel file

            .FileOpen Name:="C:\Documents and Settings\usuario\Listado de cartas.xls"

            'Saves the file as a Microsoft Word document

            .FileSaveAs Name:="C:\Documents and Settings\usuario\Listado de cartas.doc", Format:=0

            .FileClose 'Closes the file

            .FileNewDefault ' Opens up blank Word document

            'Makes the active window a main document

            .MailMergeMainDocumentType 0

            'Open the data source

            .MailMergeOpenDataSource Name:="C:\Documents and Settings\usuario\Listado de cartas.doc", _

            LinkToSource:=0

            'Activates the mail merge main document

            .MailMergeEditMainDocument

   'The following Insert commands place text into the Word

   'document. You could change these commands to place any text in

   'the document. This example uses a typical business letter

   'format.

            .InsertPara

            .InsertPara

            .Insert "País, "

            .InsertDateTime "dd' de 'MMMM' de 'yyyy", _

             InsertAsField:=True

            .InsertPara

            .InsertPara

            .InsertPara

            .Insert "Sres."    'Inserts a string

            .InsertPara                     'Inserts a carriage return

            .InsertMergeField MergeField:="AGENTE"

            .InsertPara

            .InsertPara 'DEBE IR LA DIRECCION DEL CORREDOR QUE AUN NO ESTA.

      'the mergefields are the same as the column headings in the Excel

      'workbook

           .Insert "REF: Aviso de xxxxxx"

           .InsertPara

           .Insert "         "

           .Insert "comentarios"

           .Insert " "

           .InsertMergeField MergeField:="POLIZA"

           ' AQUI ESTA PENDIENTE PONER LA SUCURSAL

           .InsertPara

           .Insert "         "

           .Insert "Vigencia:"

           .Insert " "

           .InsertMergeField MergeField:="DESDE"

           .Insert " "

           .Insert "al"

           .Insert " "

           .InsertMergeField MergeField:="HASTA"

           .InsertPara

           .InsertPara

           .Insert "Estimado xxxxxx:"

           .InsertPara

           .InsertPara

           .Insert "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx."

           .InsertPara

           .InsertPara

           .Insert "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"

           .InsertMergeField MergeField:="xxxxxxxxxxxxxxxxxxxxxxxx"

           .Insert " "

           .Insert "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx."

           .InsertPara

           .InsertPara

           .Insert "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx."."

           .InsertPara

           .InsertPara

           .Insert "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx."."

           .InsertPara

           .InsertPara

           .Insert "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx."."

           .InsertPara

           .InsertPara

           .Insert "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx." "

           .InsertPara

           .InsertPara

           .Insert "Atentamente."

           .InsertPara

           .InsertPara

           .InsertPara

           .Insert "_______________________"

           .InsertPara

           .Insert "Sr.Fulano"

           .InsertPara

           .Insert "Oficial Depto. XXX"

           .MailMergeToDoc 'Merges data records with the main document

           ' Saves the active document with the specified name

      .FileSaveAs Name:="C:\Documents and Settings\usuario\Cartas.doc"

      End With

   Set word = Nothing 'clears the object variable

   End Sub