Visual Basic - Error 6 - Macros

Sub uno()

'

Dim i As Integer

    For i = 0 To ActiveDocument.MailMerge.DataSource.RecordCount

        With ActiveDocument.MailMerge

            .Destination = wdSendToNewDocument

            .SuppressBlankLines = True

            With .DataSource

                .FirstRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord

                .LastRecord = ActiveDocument.MailMerge.DataSource.ActiveRecord

            End With

            .Execute pause:=False

        End With

        Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend

        Selection.Copy

        'MsgBox (Selection.Text + ".doc")'

        ChangeFileOpenDirectory "C:\Users\john.quiroga\Desktop\CARPETA COM"

        ActiveDocument.SaveAs FileName:=Selection.Text + ".doc", FileFormat:= _

            wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _

            :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _

            :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _

            SaveAsAOCELetter:=False

            'Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _

                wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _

                ManualDuplexPrint:=False, Collate:=True, Background:=False, PrintToFile:= _

                True, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _

                PrintZoomPaperHeight:=0, outputfilename:=Selection.Text + ".tiff", Append:=False'

        ActiveDocument.Close

        'MsgBox ("")'

        ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord

    Next

End Sub