Private Sub cmdRegistraVerbale_Click()
......................................
Workbooks.Open Filename:=archivio
......................................
numero = ActiveCell.Value
......................................
Workbooks(archivio).Save                     ' i know it's useless (could use 'true' in next)
Workbooks(archivio).Close (False)          ' but who knows...
......................................
On Error Resume Next
        
       Set wd = GetObject(, "Word.Application")
       If wd Is Nothing Then
          Set wd = CreateObject("Word.Application")
       End If
    
       On Error GoTo 0

       Set wdocSource = wd.Documents.Open(modverbale)
    
       wdocSource.MailMerge.MainDocumentType = wdFormLetters

       With wdocSource.MailMerge
          .Destination = wdSendToNewDocument
          .SuppressBlankLines = True
          With .DataSource
               .FirstRecord = numero
               .LastRecord = numero
          End With
          .Execute Pause:=False                 ' error 5631 here
       End With

       wdocSource.MailMerge.DataSource.Close
    
       wd.Visible = True

       With wd.Documents(wd.ActiveDocument.FullName)
           .SaveAs ("newfile.doc")
           .PrintOut
           .Close
       End With

       wdocSource.Close SaveChanges:=False
    
       wd.NormalTemplate.Saved = True